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This document contains source and cross-reference listings for 
Version 3.7 of SNOBOL4. Version 3.7 is obtained by altering Version 
3.0 (see S4&D1I7). The line numbers given in columns 77-80 in the 


following listing are the same as those in Version 3.0. Changed and 
added lines have no numbers. 


version 3.7 incorporates corrections and minor improvements to 


Version 3.0. There are no changes in language features. The IBM 
360 macro definitions and subroutines are unchanged. 
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CLNTYP 
CMATYP 
CMTTYP 
CNTTYP 
CTLTYP 
DIMTYP 
EOSTYP 
EQTYP 
FGOTYP 
FTOTYP 
FLITYP 
FNCTYP 
ILITYP 
LPTYP 
NBTYP 
NEWTYP 
NSTTYP 
QLITYP 
RBTYP 
RPTYP 
SGOTYP 
STOTYP 
UGOTYP 
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EQU 2*DESCR 
EQU 3*DESCR 
EQU ' &*DESCR 
EQU DESCR 
EQuU 2*DESCR 
BQU 3*DESCR 
EQU 4*DESCR 
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EQU 3*DESCR 
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EQU - SPDLSZ*DESCR 
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Linkage segment 
Machine-dependent parameters 


Offset of label in string structure 
Offset of link in string structure 
Offset of string in string structure 
Offset of father in code node 

Offset of left son in code node 
Offset of right sibling in code node 
offset of code in code node 

Limit on number of syntactic errors 
Size of function descriptor block 
Limit on length of array print image 
Width of compiler input 

Width of sequence field 

Length of statement number field 
Space for left and right numbering | 
Size of code node 

Limit on number of defined data type 
Default allocation for tables 

Growth quantum for name list 

Size of pattern node 

Number of bin headers 

Total number for bins 

Descriptors of initial object code 
Descriptors of pattern stack 
Descriptors of interpreter stack 
Descriptor plus specifier 

Offset length in bins 

Size of. pattern stack 


Array reference 
Goto field 

Comma 

Comment card 
Continue card - 
Control card 
Dimension separator 
End of statement 
Equal sign 

Failure goto 
Failure direct goto 
Literal real 
Function call 
Literal integer 
Left parenthesis 
Nonbreak character 
New statement 
Parenthesized expression 
Quoted literal 
Right bracket 

Right parenthesis 
Success goto 
Success direct goto 
Unconditional goto 
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00000306 
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00000 308 
00000 309 
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SPCNVT 


SPCNV1 


SPCNV2 


INITD1 


EQU 
EQU 
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Data type Codes 


ARRAY 

BLOCK (internal) 
CODE ; 
EXPRESSION 
INTEGER 

KEYWORD (NAME) 
LINKED STRING (internal) 
NAME 

PATTERN 

REAL 

STRING 

TABLE 
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‘program Initialization’ 


e Initialize system 

* Initialize stack 

OUTPUT, TITLEF Title listing 

OUTPUT, SOURCF Print attribution 

TIMECL Time in compiler 
SCBSCL,BLOCK,OCALIM Allocate block for object code 
OCSVCL, SCBSCL Save object code pointer 
SCBSCL, PTR Clear pointer flag 

YCL, INITLS Get size of initialization list 
XPTR, INITLS, YCL Get pointer to list 

XCL,XPTR Get size of list 

ZPTR, XPTR,XCL Get pointer to specifier 
ZPTR,0,,SPCNV2 Skip dummy zero entries 
ZPTR,GENVAR, ZPTR Convert specifier to structure 
XPTR,XCL, ZPTR Replace pointer to specifier 
XCL, 2*DESCR Decrement to next pair 

XCL,0, SPCNV1 Continue if one remains 

YCL, DESCR Decrement to next list 
YCL,0,SPCNVT Continue if one remains 

XPTR, INITB,0O — Get specifier to convert 


YPTR,GENVAR, (XPTR) Convert it to string structure 
ZPTR, INITB,DESCR Get location to put it 
ZPTR,0,YPTR Place pointer to string structure 
INITB, 2*DESCR Decrement to next pair 
INITB, INITE,,,INITD1 

Compare with end 


ABRTKY, DESCR, ABOPAT Initial value of ABORT 
ARBKY,DESCR,ARBPAT Initial value of ARB 
BALKY, DESCR, BALPAT Initial value of BAL 
FAILKY, DESCR, FALPAT Initial value of FAIL 


’ PNCEKY,DESCR,FNCPAT Initial value of FENCE 


REMKY,DESCR,REMPAT Initial value of REM 
SUCCKY , DESCR, SUCPAT Initial value of SUCCEED 


VARSYM,0 Set count of variables to zero 
NBSPTR, BLOCK, NMOVER Allocate block for value assignment 
CMBSCL,SCBSCL Set up pointer for compiler 

UNIT, INPUT Set up input unit 

OCBSCL, CMBSCL Project base for interpreter 
OCLIM,CMBSCL,OCALIM Compute end of code block 

OCLIM, 5*DESCR Leave room for overflow 

XLATRN 
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XLATRD 


XLATRN 


XLATNX 


RCALL 
RCALL 


INCRA 
PUTD 
AEQLC 
STPRNT 


‘Compilation and Interpreter Invocation’ 
LISTCL,0,,XLATRN Skip print if list is off 
IOKEY, OUTBLK,LNBFSP Print line image 
INBFSP,UNIT, XLATRN,COMP5 
TEXTSP,NEXTSP Read card and set up line 
XSP, TEXTSP, CARDTB, COMP3 , COMP3 

Determine type of card 
,NEWCRD,, (XLATRD,,) Process card type 
,CMPILE,, (COMP3, , XLATNX) 

Compile statement 


CMOFCL, DESCR Increment offset 
CMBSCL,CMOFCL, ENDCL Insert END function 
LISTCL,9,,XLATP Skip print if list is off 


IOKEY, OUTBLK,LNBFSP Print last line image 
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00000 368 
00000369 
00000370 
00000371 
00000372 
00000373 
00000374 
00000375 
00000376 
00000377 
09000378 
00000379 
0000C 389 
00000381 
00000382 
00000383 
00000384 
00000385 
00000386 
00000387 
00000388 
00000389 


XLATP AEQLC 
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STREAM 
* 


AEQLC 


AEQLC 
STREAM 


* 


RCALL 


GETDC 
AEQLC 
AEQLC 
* 
STREAM 
* 
XLAEND AEQLC 
OUTPUT 
BRANCH 


* 
XLATSC OUTPUT 
XLATND SETAC 
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*Support Procedures? 


TITLE 
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SQURCE LISTING 
STYPE, BOSTYP, , XLAEND 


STYPE, EOSTYP, ,XLAEND 


STYPE, NBTYP, COMP7 


XPTR, GENVAR, (XSPPTR) 


OCBSCL,0,,COMP7 


Finish on end of statement 
XSP, TEXTSP, IBLKTB, COMP3 ,XLAEND 
Analyze END card 


Finish on end of statement 
Error if break character 
XSP, TEXTSP, LBLTB, COMP7, COMP7 


Analyze END label 


Generate variable for label 
OCBSCL, XPTR, ATTRIB Get start for interpreter 
Error if not attribute 


STYPE, EOSTYP, , XLAEND 


XSP, TEXTSP, IBLKTB, COMP7, ,COMP7 


ESAICL,0,,XLATSC 
OUTPUT, ERRCF 
XLATND ~ 


OUTPUT, SUCCF 
UNIT, 0 

LPTR,0 

OCLIM, 0 

COMREG, COMDCT 
XCL,CMBSCL, CMOFCL 
, SPLIT, (XCL) 
LISTCL,0 

ETMCL 

TIMECL, ETMCL, TIMECL 
CNSLCL,1 — 


* Augmentation of Pair Lists 


* 
AUGATL PROC 


e 
POP (A1PTR,A2PTR,A3PTR) List, type and value 
LOCAPT AUPTR,AIPTR, ZEROCL,AUGI 
* Look for hole in list 
PUTDC A4&PTR, DESCR, A2PTR Insert type descriptor 
PUTDC A4YPTR, 2*DESCR,A3PTR Insert value descriptor 
MOVD A5PTR,AIPTR Set up return pointer 
BRANCH ASRTN Return pair list 
* . 
AUG1 GETSIZ AU4PTR,A1PTR . Get. size of present list 
: INCRA AU4PTR,2¥*DECCR “~~~ Add two more descriptors 
SETVC A4PTR,B Insert BLOCK data type 
RCALL A5PTR, BLOCK, AYPTR Allocate new block 
PUTD ASPTR,AGYPTR,AIPTR Insert value descriptor at end 
DECRA A4PTR,DESCR Decrement : 
PUTD ASPTR,AGPTR,A2PTR Insert type descriptor above 
AUGMOV DECRA ASPTR, DESCR Adjust size i 
MOVBLK A5PTR,A1PTR,A4PTR Copy old list at top 
BRANCH ASRTN Return new List 
* 
_ 
* 
* Code Skipping Procedure 
* 
CODSKP PROC ° Procedure to skip object code 
, POP YCL Restore number of items to skip 
CODCNT INCRA OCICL, DESCR Increment offset 
GETD XCL,OCBSCL, OCICL Get object code descriptor 
TESTF XCL, FNC, ,CODFNC Check for function 
CODECR DECRA YCL, 1 Count down 
ACOMPC YCL,0,CODCNT,RIN1, INTR10 


x 


= 
CODFNC PUSH 


BRANCH 


YCL 
YCL, XCL 
eCODSKP, (YCL) 


YCcL 


CODECR 


Finish on end of statement 


Analyze remainder of card 


Were there any compilation errors? 


Print message of errors 


Print message of no errors 


Reset input unit 


Reset last label pointer 

Reset limit on object code 
Clear compiler descriptors 
Compute end of object code 


Split of unused part of block 


Turn off Listing switch 


Time out compiler 


Compute elapsed time 
Permit label redefinition 
e INTERP,, (MAIN1,MAIN1,MAIN1) 


Call interpreter 


Procedure to augment pair lists 


Check for end 


Save number to skip 


Get arguments to skip 


Call self recursively 


Restore number to skip 


Go around again 
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DTABL1 


SQURCE_ LISTING 


meme enema x 
Data Type Representation 
PROC ’ Procedure to represent data type 
POP A2PTR Restore object 
VEQLC A2PTR,A, ,DTARRY Is is ARRAY? 
VEQLC A2PTR,T, -DTABLE Is it TABLE? 
VEQLC A2PTR, R, DTREP1 Is it REAL? 
REALST DPSP,A2PTR -Convert REAL to STRING 
BRANCH DTREPR Join end processing 
GETDC A3PTR,A2PTR, DESCR Get prototype 
LOCSP ZSP,A3PTR _ Get specifier 
GETLG A3PTR, ZSP Get length 
ACOMPC A3PTR,ARRLEN,DTREP1 Check for excessive length 
SETLC DTARSP ,0 Clear specifier i 
APDSP DTARSP,ARRSP Append ARRAY 
APDSP DTARSP, LPRNSP Append *¢(° 
APDSP DTARSP, QTSP Append quote 
APDSP  DTARSP,ZSP Append prototype 
APDSP DTARSP, QTSP Append quote 
APDSP DTARSP, RPRNSP Append *)'* 
SETSP DPSP, DTARSP Move specifier 
BRANCH DTREPR Return 
GETSIZ A3PTR,A2PTR E3.2.3 
GETD A1PTR,A2PTR,A3IPTR E3.2.3 
DECRA A3PTR, DESCR , E3.2.3 
GETD A2PTR,A2PTR,A3PTR E3.2.3 
AEQLC A1PTR, 1, ,DTABL2 i E3.2.3 
SUM A3PTR,A3PTR,A2PTR  £3.2.3 
DECRA_ A3IPTR, 2*DESCR E3.2.3 
GETD A1PTR,AIPTR,A2PTR E3.2.3 
BRANCH DTABL1 E3.2.3 
E3.2.3 
DECRA A3PTR,DESCR E3.2.3 
DECRA A2PTR, 2*DESCR E3.2.3 
DIVIDE A3PTR,A3PTR,DSCRTW Divide to get item count 
INTSPC ZSP,A3PTR Convert to string 
SETLC DTARSP,0 Clear specifier 
APDSP DTARSP, ASSCSP Append TABLE 
APDSP DTARSP, LPRNSP Append ¢(‘ 
APDSP DTARSP, ZSP Append size 
APDSP DTARSP, CMASP Append comma 
DIVIDE A2PTR,A2PTR, DSCRTW E3.2.3 
INTSPC ZSP,A2PTR E3.2.3 
APDSP DTARSP, ZSP Append extent 
BRANCH DTARTB ‘ Join common processing 
MOVV DTICL, A2PTR ' Insert data type 


LOCAPT A3PTR, DTATL, DTICL, DTREPE 
Look for data type name 


GETDC A3PTR,A3PTR,2*DESCR Get data type name 

LOCSP DPSP,A3PTR Get specifier ; 

RRTURN DPSPTR,1 Return pointer to specifier 
SETSP DPSP, EXDTSP Set up EXTERNAL specifier 
BRANCH DTREPR Return 


Location of Function Descriptor 


» Procedure to get function descriptor 
POP FIPTR Restore name 

LOCAPV F2PTR,FNCPL,FIPTR, FATNE 

Look for function pair 


GETDC F2PTR, F2PTR, DESCR Get function descriptor 
RRTURN F2PTR,1 Return 
INCRA NEXFCL, 2*DESCR Increment function block offset 


ACOMPC NEXFCL, FBLKSZ, FATBLK 
Check for end 
SUM F2PTR, FBLOCK,NEXFCL Compute position 
RCALL FNCPL, AUGATL, (FNCPL, F2PTR, F1PTR) 
Augment function pair list 
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PUTDC F2PTR, 0,UNDFCL Insert undefined function 00000537 
PpuTDC F2PTR, DESCR,F1PTR Insert name 3 C0000538 : 
BRANCH FATBAK Join return 00000539 = 
+ ooccosso (om, 
FATBLK RCALL FBLOCK, BLOCK, FBLKRQ Allocate new function block 00000541 Soke 
SETF | FBLOCK,FNC Insert function flag 00000542 at 
SETVC FBLOCK,0 Clear data type 00000543 
SETAC NEXFCL, DESCR Initialize offset , 00000544 
BRANCH FATNXT Join processing 00000545 
+ 00000546 
nent OOO005K7 
TITLE *Storage Allocation and Refeneration Procedures! 00000548 
* 00000549 
* Allocation of Block 00000550 
* 00000551 
BLOCK PROC P - Procedure to allocate blocks 00000552 
POP ARGICL Restore size to allocate — * 00000553 
ACOMP ARGICL,SIZLMT, SIZERR,SIZERR 00000554 
* 4 : Check against size limit 00000555 
BLOCK1 MOVD BLOCL, FRSGPT Position pointer to title | 00000556 
MOVV BLOCL,ARGICL Move data type 00000557 
INCRA . FRSGPT,DESCR Leave room for title 00000558 
SUM FRSGPT, FRSGPT,ARGICL ‘ 00000559 
* Move position pointer past end 00000560 
ACOMP TLSGP1, FRSGPT, « » BLOGC 00000561 
* Check for end of region 00000562 
ZERBLK BLOCL,ARGICL Clear block ; 00000563 
PUTAC . BLOCL,0, BLOCL Set up self-pointer in title | 00000564 
SETFI BLOCL,TTL Insert title flag 00000565 
SETSIZ BLOCL,ARGICL Insert block size ae . 00000566 
RRTURN BLOCL,1 Return pointer vo block ; 00000567 
* . 00000568 
BLOGC MOVA FRSGPT,BLOCL — Restore position pointer ace 00000569 
RCALL .§_, GC, (ARGICL) , (ALOC2, BLOCK 1) 00000570 
= : : Regenerate storage ; 7 00000571 
* 00000572 
7 nee * 00000573 
* 00000574 
* Generation of Natural Variables | . - 00000575 
* - | 00000576 (ow) 
' GENVAR PROC ; Procedure to generate variable 00000577 mn, 
SETAC CONVSW, 0 Note GENVAR entry 00000578 = 
POP AXPTR Resotre pointer to specifier 00000579 
GETSPC SPECR1,AXPTR,0 Get. specifier 00000580 
LEQLC SPECR1,0,,RTINUL Avoid null string 00000581 
LOCA? VARID EQUVCL, SPECR? Compute bin and ascension numbers 00000582 
SUM BUKPTR,OBPTR,EQUVCL Find bin — 00000583 
LOCA2 MOVD LSTPTR, BUKPTR Save working copy 000005848 
GETAC BUKPTR, BUKPTR, LNKFLD STS 00000585 
* ‘ Get. link descriptor 00000586 
AEQLC BUKPTR,O,,LOCAS — Check for end of chain 00000587 
VCMPIC BUKPTR, LNKFLD, EQUVCL, LOCAS, ,LOCA2 00000588 
* Compare ascension numbers 00000589 
LOCSP SPECR2, BUKPTR Get specifier to string in storage 00000590 
LEXCMP SPECR1,SPECR2, LOCA2,,LOCA2 : : 00000591 
* Compare strings 00000592 
MOVD LCPTR, BUKPTR Return string in storage 00000593 
BRANCH LOCRET : 00000594 
a C0000595 
LOCAS GETLG AXPTR, SPECR1 Get length of string 00000596 
GETLTH BKLTCL,AXPTR Compute space required 00000597 
ACOMP BKLTCL, SIZLMT, STZERR 00000598 
* Check against size limit 000c0c5s99 
LOCA? MOVD LCPTR, FRSGPT Point to position in storage 00000600 
SETVC LCPTR,S Set data type to STRING 00000601 
INCRA FRSGPT, DESCR Leave space for title 00000692 
SUM _ FRSGPT, FRSGPT, BKLTCL 00000603 
= 5 Skip required space 00000608 
ACOMP TLSGP1, FRSGPT, , » LOCA 00000605 
* . Check for end of region 00000606 
PUTDC LCPTR,0, ZEROCL Clear title 00000607 
PUTAC LCPTR,0,LCPTR Point title to self 00000608 
SETFI LCPTR,TTL¢+STTL — Set string and title flags 00000609 : 
SETSIZ LCPTR,AXPTR Insert size of string 00000610 
AEQLC CONVSH,0,LOCA6 Check for GENVAR entry 00000611 
PUuTDC LCPTR,DESCR,NULVCL Set value to null string 00000612 Fe | 
PUTDC LCPTR,ATTRIB,ZEROCL Set label attribute to zero 00000613 C 
LOCSP SPECR2,LCPTR _ Get specifier to string structure 00000614 
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SETLC SPECR2,0 Clear length ; 
_ APDSP SPECR2,SPECR1 Move new string in 
LOCA6 PUTVC LCPTR, LNKFLD, EQUVEL Insert ascension number 
PUTAC LCPTR, LNKFLD, BUKPTR Insert link pointer 
PUTAC LSTPTR,LNKFLD,LCPTR Link to last structure 
INCRA VARSYM, 1 Increment count of new variables 
LOCRET RRTURN LCPTR, 1 - Return pointer to structure 
* : 
LOCAS MOVA FRSGPT, LCPTR Restore position pointer 
RCALL ~GC, (BKLTCL) , (ALOC2,LOCA7) 
* , Regenerate storage 
* 
i 
* 
* Generation of Variable from Integer 
* 
GNVARI PROC GENVAR Procedure to generate string 
SETAC CONVSW,C Note GENVAR entry 
POP AXPTR Restore integer 
INTSPC SPECR1,AXPTR Convert to string 
BRANCH LOCA1 Join processing 
* ' 
6 a ee ee ee 
* 
* Allocation of Space. for Variable 
* 
CONVAR PROC GENVAR Procedure to get space for variable 
* ~: poP AXPTR Restore length 
AEQLC AXPTR,0,,RTINUL Avoid null string 
SETAC CONVSW, 1 Note CONVAR entry 
GETLTH BKLTCL, AXPTR Get space required 
ACOMP BKLTCL, SIZLMT,SIZERKR 
* Check against size limit 
SUM TEMPCL, FRSGPT, BKLTCL 
* Skip required space 
INCRA TEMPCL, DESCR Save space for title 
ACOMP TLSGP1,TEMPCL, » ¢ CONVR4 
* Check for end of region 
CONVRS PUTDC FRSGPT,0,ZEROCL Clear title ss 
PUTAC FRSGPT, 0, FRSGPT Set up self pointer 
SETFI FRSGPT, TTL+STTL Set string and title flags 
SETSIZ FRSGPT,AXPTR Insert tentative size of string 
PUTDC FRSGPT,DESCR,NULVCL Insert null string as value 
PUTDC FRSGPT, ATTRIB, ZEROCL : 
* Set label to zero 
MOVA BKLTCL, FRSGPT E3.3.2 
RRTURN BKLTCL,1 E3.3.2 


* 
CONVR4 RCALL 


»GC, BKLTCL, (ALOC2,CONVRS) 


Regenerate storage 


* Generation of Variable in Place 


Q*eet 


GCTDWN DECRA 


GENVAR 
AXPTR 


AXPTR,0,,RTINUL 
SPECR1, FRSGPT 
SPECR1,AXPTR 
FRSGPT, AXPTR 


LOCA1 


’ 
GCREQ 
BLOCL 


BLOCL, BLOCL, STKP 
STKPTR,BLOCL . 
BKDXU, PRMDX 


Procedure to entry string 
Restore length: 

Avoid nuil string 

Get specifier to position 
Insert final length 
Insert size in title 

Join processing 


Storage regeneration procedur 
Restore space required 
Post stack position 

Compute stack length used 

Set stack size 

Number of resident blocks 


GCMPTR, PRMPTR, BKDXU Get next resident block 


GCMPTR, 0, ,GCTDWN 
~GCM, (GCMPTR) 
BKDXU, DESCR 
BKDXU, 0,GCT 


Skip nonpointers 

Scan resident block 
Decrement block count 
Test for end of loop 
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SETAC 
ACOMP 
INCRA 
MOVD 

GETAC 


AEQLC 
TESTFI 
GETDC 
DEQL 
AEQLIC 


PUTDC 
RCALL 


MOVD 
MOVD 
BKSIZE 
TESTFI 
SUM 
SUM 
AEQL 


MOVD 
SUM 
AEQL 
BKSIZE 
TESTFI 
PUTAC 
SUM 
BRANCH 


SETAC 
SETAC 
ACOMP 
INCRA 
MOVD 

MOVD 

GETAC 


AEQLC 
TESTFI 
GETAC 
PUTAC 
BRANCH 


PUTAC 
BRANCH 


MOVD 
BKSIZE 
TESTFI 
MOVD 
BRANCH 


SETAC 
TESTFI 
DECRA 
GETD 
TESTE 
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BKPTR,OBLIST-DESCR Set up pointer to bins 
BKPTR, OBEND, GCLAD Check for end of bins 


BKPTR, DESCR Increment bin pointer 
STIPTR, BKPTR Get working copy 
STIPTR, STIPTR, LNKFLD 

Get link pointer 
ST1PTR,0,,GCBA1 Test for end of chain 


STIPTR,MARK,,GCBA2 Test for marked structure 


ST2PTR,STIPTR,DESCR Get value descriptor 
ST2PTR,NULVCL,GCBA4 Mark if nonnull 
STIPTR, ATTRIB, 0,,GCBA2 

Test attribute also 
GCBLK, DESCR,ST1IPTR Set up pseudoblock 
oGCM, (GCBLK),GCBA2 Mark string structure 


CPYCL, HDSGPT Initialize target pointer 
TTLCL, HDSGPT Initialize block pointer 
BKDX,TTLCL Get size of block 


TTLCL, MARK, GCLAD? Is the block marked? 
CPYCL, CPYCL, BKDX Is block marked? 
TTLCL, TTLCL, BKDX Update block pointer 
TTLCL, FRSGPT, GCLADO, GCBB1 

‘ Check for end of region 


MVSGPT, TTLCL Update compression barrier 
TTLCL, TTLCL, BKDX Update block pointer 
TTLCL, FRSGPT, ,GCBB1 Check for end of region 
BKDX, TTLCL Get size of block 
TTLCL, MARK, GCLAD4 Is block marked? 
TTLCL,0,CPYCL ‘Point title to target 
CPYCL, CPYCL, BKDX Update target pointer 
GCLAD4 , Continue 


BKPTR,OBLIST-DESCR Set up pointer to bins 
NODPCL, 1 ~ No dump while reorganizing 
BKPTR,OBEND, GCLAP Check for end of bins 


BKPTR, DESCR Increment bin pointer 
ST1IPTR, BKPTR Get work copy 
ST2PTR,ST1IPTR Save pointer to be Linked 
STIPTR, STIPTR, LNKFLD 


Get link pointer 
Check for end of chain 
ST1PTR,MARK, GCBBY Is string marked? 


BLOCL, ST1PTR,0 Get target address 
ST2PTR, LNKFLD, BLOCL Set link to target 
GCBB3 Continue 
ST2PTR, LNKFLD, ZEROCL 

Set last link to zero 
GCBB2 c ’ Continue 
TTLCL,HDSGPT Initialize target pointer 


BKDXU, TTLCL Get -Size of. block 
TTLCL,STTL,,GCLAP1 Check for string 


BKDX, BKDXU Working copy of block size 
GCLAP2 
BKDX, 3*DESCR Three descriptors for string 


TTLCL, MARK, GCLAP5 Is block marked? 
BKDX, DESCR Decrement offset 


DESCL, TTLCL, BKDX Get next descriptor in block 


DESCL,PTR,GCLAPY Is it a pointer? 
DESCL, MVSGPT, , g GCLAP4 


Is it above compression barrier? 


TOPCL,OFSET, DESCL Compute offset to target 
DESCL, TOPCL,OFSET Adjust pointer to target 


TTLCL, BKDX, DESCL Put descriptor back in block 


BKDX, DESCR Decrement offset 
BKDX,0,GCLAP3 Check for end of block 
TTLCL, TTLCL, BKDXU Move to next block 

TTLCL, FRSGPT,GCLAPO Check for end of region 
BKDXU, PRMDX Number of resident blocks 
TTLCL,PRMPTR,BKDXU Get next resident block 
TTLCL, 0, »,GCLAT4 Skip nonpointer 

BKDX, TTLCL Get size of block 

DESCL, TTLCL, BKDX Get descriptor from block 
DESCL, PTR, GCLAT3 Is it a pointer? 

DESCL, MVSGPT, , ,GCLAT3 
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Is it above compression barrier? 


TOP TOPCL,OFSET,DESCL Compute offset to target 
ADJUST DESCL,TOPCL,OFSET Adjust pointer to target 
PUTD TTLCL, BKDX, DESCL Put descriptor back in block 
GCLAT3 DECRA BKDX, DESCR Decrement offset 
AEQLC BKDX,0, GCLAT2 Check for end of block 
GCLAT4 DECRA BKDXU, DESCR Decrement count of resident blocks 
AEQLC BKDXU,0,GCLAT1 Check for end of resident blocks 
MOVD TTLCL, HDSGPT Set up target pointer 
GCLAMO BKSIZE BKDXU,TTLCL Get size of block 
“ACOMP TTLCL, MVSGPT, GCLAM5 , GCLAM5S 
* Has compression barrier been reached 
GETAC TOPCL, TTLCL,0 Get target position 
MOVDIC TOPCL,0,TTLCL,90 Move title to target position 
RSETFI TOPCL, MARK Clear mark flag 
BRANCH GCLAM4 Continue 
* 
-GCLAMS MOVA BKDX, BKDXU working copy of block size 
DECRA BKDX, DESCR Size to be moved 
TESTFI TTLCL,MARK,GCLAM4 Is block marked? 
GETAC TOPCL, TTLCL, 0 Get target position 
MOVDIC TOPCL,0,TTLCL, 0 Move title 
RSETFI TOPCL,MARK Clear mark flag 
MOVBLK ‘TOPCL, TTLCL, BKDX Move block itself 
GCLAM4 SUM TTLCL, TTLCL, BKDXU Get to next block 
AEQL TTLCL, FRSGPT,GCLAMO Check for end of region 
INCRA  GCNO,1 Increment count of regenerations 
SETAC NODPCL, 0 Permit dump 
BKSIZE BKDX,TOPCL Get size of last block 
SUM FRSGPT, TOPCL, BKDX Compute new allocation pointer 
RESETF FRSGPT,FNC Clear possible function rlag 
SUBTRT GCGOT,TLSGP1,FRSGPT Compute amount reclaimed 
DECRA GCGOT, DESCR 
RESETF GCGOT,PTR Clear pointer flag 
_ ACOMP GCREQ,GCGOT, FAIL Compare with amount required 
RRTURN GCGOT,2 
* 
es HE 
* 
* Block Marking 
* 
GCM PROC e Procedure to mark blocks 
POP BK1CL Restore block to mark from 
PUSH ZEROCL Save end marker 
GCMA1 GETSIZ BKDX, BKICL Get size of block 
GCMA2 GETD DESCL, BK1CL, BKDX Get descriptor 
TESTF DESCL, PTR, GCMA3 Is it a pointer? 
AEQLC DESCL,%, ,GCMA3 Is address zero? 
TOP TOPCL, OFSET, DESCL Get to title of block pointed to 
_TESTFI TOPCL,MARK,GCMA4 Is block marked? 
GCMA3 DECRA BKDX,DESCR “ Decrement offset 
AEQLC BKDX,0,GCMA2 Check for end of block 
POP BKICL Restore block pushed 
AEQLC BKICL,0,,RTN1 Check for end 
SETAV BKDX, BK1CL Get size remaining 
BRANCH GCMA2 Continue processing 
* a 
GCMAW DECRA BKDX,DESCR Decrement offset 
AEQLC BKDX,0, , GCMA9 Check for end 
SETVA BK1CL, BKDX Insert offset 
PUSH BK1CL Save current block 
GCMA9 MOVD BKICL, TOPCL Set poiner to new block 
SETFI BK1ICL, MARK Mark block 
TESTFI BKICL, STTL,GCMA1 Is it a string? 
MOVD BKDX, TWOCL Set size of string to 2 
BRANCH GCMA2 Join processing 
* 
cts HE 
* . 
* Procedure to Split Blocks 
SPLIT PROC 7 Procedure to split blocks 
PoP AGPTR Restore pointer to middle of block 
TOP A5PTR,A6PTR,AUPTR Get title and offset 
AEQLC A6PTR,0,,RTN1 Avoid block of zero length 
GETSIZ A7PTR,ASPTR Get present block size 
SUBTRT AT7PTR,A7TPTR,A6PTR Subtract offset 
DECRA . ATPTR,DESCR Decrement for title 
ACOMPC A7PTR,0O,,RTN1,RTN1 Avoid block of zero length 
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00900833 
00000834 
00000835 
00000836 
00000837 
00000838 
00000839 
00000840 
00000841 
00000842 
00000843 
00000844 
00000845 
00000846 
00000847 


BINOP PROC P ; Compiler binary operator analysis 
RCALL e FORBLK, » BINOP1 Test for initial blank 
AEQLC BRTYPE,NBTYP,RTN2 If so, fail on break 
STREAM XSP,TEXTSP, BIOPTB,BINCON 
MOVD ZPTR,STYPE Move function descriptor 
BRANCH RTZPTR ~ Return function descriptor 

- i 

BINOP1 RCALL e FORWRD, , COMP3 If no blank, find character 
SELBRA BRTYPE, (,RTN2,RTN2,,,RTN2,RTN2) 

BINERR SETAC . EMSGCL,ILLBIN Set up error message 
BRANCH RTN1 Take error return 

x 

BINCON MOVD ZPTR, CONCL No operator, concatenation 
BRANCH RTZPTR Return function descriptor 

* 

BINEOS SETAC EMSGCL,ILLEOS Set up error message 
BRANCH RTN1 Error return 

* 

i 

* 

* Statement Compilation : 

* : 

CMPILE PROC a Procedure to compile statement | 
SETAC BRTYPE,®% Clear break indicator 
MOVD BOSCL, CMOFCL Set statement beginning offset 
INCRA CSTNCL, 1 Increment statement number 
STREAM XSP,TEXTSP, LBLTB,CERR1 

* Break out label 
LEQLC XSP,0,,CMPILA Check for no label 
INCRA CMOFCL, DESCR Increment offset 
PUTD CMBSCL, CMOFCL, BASECL ; 

* Insert BASE function 
SUM CMBSCL, CMBSCL, CMOFCL 

* Add offset to base 
ACOMP CMBSCL,OCLIM,, ,CMPILO 

* Check for end of object code 
RCALL XCL, BLOCK,.CODELT | Get block for more 
PUTDC CMBSCL,0,GOTGCL ~ . Replace BASE with direct goto 
PuTDC CMBSCL,DESCR,DOTCL Use name literal 
PUTDC CMBSCL,2*DESCR,XCL Aim at new block 
MOVD CMBSCL, XCL Set up base of new region 
SUM OCLIM, CMBSCL,CODELT Compute end of new block 
DECRA OCLIM, 5*DESCR Leave safety factor 
PUTDC CMBSCL,DESCR,BASECL Set BASE function in new region 
INCRA CMBSCL, DESCR Increment base 

CMPILO SETAC CMOFCL, 0 zero offset 
SETAC BOSCL, 0 zero base offset 
RCALL LPTR,GENVAR, XSPPTR Get variable for label 
AEQLIC LPTR,ATTRIB,0,,CMPILC 

* Check for previous definition 
AEQLC CNSLCL,0, ,CERR2 Check for label redefinition 

CMPILC PuTpoc LPTR,ATTRIB,CMBSCL Insert label attribute 
DEQL LPTR, ENDPTR, ,RTN2 Check for END 

CMPILA RCALL e FORBLK, , CERR12 Get to next character 
AEQLC BRTYPE, EOSTYP,,RIN3 Was end of statement founc? 
INCRA CMOFCL, DESCR Increment offset 
PUTD CMBSCL, CMOFCL, INITCL 

* Insert INIT function 
INCRA CMOFCL, DESCR Increment offset 
MOVD FPRNCL, CMOFCL Save offset for failure position 
AEQLC BRTYPE,NBTYP,,CMPSUB 

* Check for nonbreak 
AEQLC BRTYPE, CLNTYP, CERR3, CMPGO 


TITLE 


SOURCE LISTING 


A5SPTR,A6PTR Reset size of o1d block 
A4UPTR, DESCR Adjust pointer to middle 
ASPTR, 0, ZEROCL 
A4PTR,O, AUPTR 

A4UPTR, TTL Insert title flag 
A&PTR,ATPTR Insert size fo new block 
RTN1 Return ; 


*Compilation Procedures? 


Binary Operator Analysis 


Check for goto field 
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00000848 
00000849 
00000850 
€0000851 
00000852 
90000853 
00000854 
00000855 
00000856 
00000857 
000c08538 
00000859 
00000860 
00000861 
00000 862 
00000863 


00000864 


00000865 
00000866 
00000 867 
00000868 
00000869 
00000870 
00000871 
00000872 
00000873 
00000874 
C0000875 
00000876 
00000877 
90000878 
00000879 
c€0900830 
00000881 
00000882 
00000883 
00000884 
00000885 
00000886 
00000887 
00090888 
00000889 
00000890 
00000891 


00000892 


09900893 
00NC0894 
00000895 


~ 00000896 


00000897 
099000898 
00000899 
00000900 


00000901 © 


00000902 
00000903 
00000904 
00000905 
00000906 
00000907 
00000908 
00000909 
00000910 
00000911 
00009912 
00000913 
00000914 
00000915 
00000916 
00000917 
00000918 
00000919 
00000920 
00000921 
00000922 
00000923 
00000924 
00000925 


pict 


@ 


CMPSUB RCALL 
* 


RCALL 
AEQLC 


AEQLC 


RCALL 
AEQLC 
* 
AEQLC 
* 
* 
CMPATN RCALL 
AEQLC 
* 
INCRA 
PUTD 


RCALL 
RCALL 
CMPTGO AEQLC 


AEQLC 


* 

CMPFRM RCALL 
INCRA 
PUTD 


PCALL 
BRANCH 


CMPASP RCALL 
INCRA 
PUTD 


RCALL 

' RCALL 
CMPFT RCALL 
* 


* 

CMPNGO SETVA 
PUTD 
BRANCH 


CMPGO RCALL 
AEQLC 


AEQLC 
STREAM 


MOVD 
SETAC 
ACOMP 


MOVD . 
SETAC 
CMPGG SELBRA 
* 
CMPUGO SETVA 
PUTD 
RCALL 
AEQL 


CMPSGO RCALL 
AEOL 


INCRA 
PUTD. 


SOURCE LISTING 


SUBJND, ELEMNT, » (CDIAG, COMP3) 
Compiler subject 
»FORBLK, »CERRS Get to next character 
BRTYPE, NBTYP, »,CMPATN 
Check for nonbreak 
BRTYPE, EQTYP, »CMPFRM 
Check for assignment 
y TREPUB, (SUBJND) Copy subject into object code 
BRTYPE, CLNTYP, ,CMPGO 
: Check for goto 
BRTYPE, EOSTYP, CERR5, CMPNGO 


Check for end of statement 


PATND, EXPR, ,CDIAG 

BRTYPE, EQTYP, , CMPASP 
. Check for replacement 

Increment offset 


Compile pattern 


CMOFCL, DESCR 
CMBSCL, CMOFCL, SCANCL 
Insert SCAN function 

»TREPUB, (SUBJND) Copy subject into object code 
7 TREPUB, (PATND) Copy pattern into object code 
BRTYPE, EOSTYP, ,CMPNGO 

Check for end of statement 
BRYYPE, CLNTYP, CERR5, CMPGO 

Check for end of statement 


FORMND, EXPR,eCDIAG Compile object 
CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL, ASGNCL 
Insert ASGN function 
» TREPUB, (SUBJND) Copy subject into object code 
CMPFT Join object publication 


FORMND, EXPR,,CDIAG Compile object 
CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL, SJSRCL 

Insert SJSR function 
» TREPUB, (SUBJND) - Copy subject into object code 
» TREPUB, (PATND) Copy pattern into object code 
» TREPUB, FORMND, CMPTGO 

Copy object into object code 


CSTNCL, CMOFCL Set up offset for failure 
CMBSCL, FRNCL,CSTNCL Insert argument of INIT 
RTN3 Statement compilation is done 
Get to next character 
» FORWRD, , COMP3 Check for end of statement 
BRTYPE, EOSTYP, ,CMPNGO 
Check for nonbreak 
BRTYPE,NBTYP,CERR11 
XSP, TEXTSP, GOTOTB, CERR11,CERR12 
Analyze goto field 
GOGOCL, GOTLCL Predict GOTL 
GOBRCL,RPTYP Set up predicted closing break 
STYPE, GTOCL, , CMPGG, CMPGG 
Check for direct goto 
GOGOCL, GOTGCL Set up direct goto 
GOBRCL, RBTYP Set up closing break 
STYPE, (,CMPSGO, CMPFGO, » CMPSGO, CMPFGO) 
Branch on type 
CSTNCL, CMOFCL Set up offset for failure 
CMBSCL,FRNCL,CSTNCL Insert argument of INIT 
GOTOND,EXPR,,CDIAG Compile goto 
BRTYPE, GOBRCL,CERR11 
Verify closing break 
CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL,GOGOCL 
Insert goto function 
« TREPUB, (GOTOND) Copy goto into object code 
» FORWRD, , COMP3 Get. to next character 
BRTYPE, EOSTYP, CERR11,RTN3 
Check for end of statement 


SGOND, EXPR, , CDIAG 
BRTYPE, GOBRCL, CERR11 
verify break character 
Increment offset 


Compile success goto 


CMOFCL, DESCR | 
CMBSCL, CMOFCL, GOGOCL 
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00000926 
00000927 
00000928 
00000929 
00000930 
00000931 
00090932 
00000933 
000009348 
00000935 
00000936 
00000937 
00000938 
00000939 
00000940 
00000941 
00000942 
000009483 
00000944 
00000945 
00000946 
00000947 
00000948 
00000949 
00000950 
00000951 
00000952 
00000953 
00000954 
09000955 
06700556 
00000957 
00000958 
00000959 
00000960 
00000961 
00000962 
00000963 
00000964 
00000965 
00000966 
00000967 
00000968 
00000969 
00000970 
00000971 
00000972 
00000973 
00000974 
00000975 
00000976 
00000977 
00000978 
00000979 
00000980 
06000981 
00000982 
00000983 
00000984 
00000985 
00000986 
00000987 
00000988 . 
00000989 
00000990 
00000991 
00000992 
00000993 
00000994 
00000995 
00000996 
00000997 
00000998 
00000999 
00001000 
000010017. 
00001002 
00001003 


CMPILL 


CMPILM 


* 
CMP STC 


CMPTILN 


* 


AEQLC 
PUSH 
SETAC 
RCALL 
AEQL 


RCALL 
AEQLC 


INCRA 
POP 
PUTD 
RCALL 
SETVA 
PUTD 
INCRA 
PUTD 


RCALL 
SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 


SOURCE LISTING 


Insert goto function 


» TREPUB, (SGOND) Copy goto into object code 


y FORWRD, , COMP3 Get to next character 
BRTYPE, EOSTYP, CMPILL 

Check for end of statement 
CSTNCL, CMOFCL Set up offset for failure 


CMBSCL,FRNCL,CSTNCL Insert argument of INIT 
RTN3 Compilation is complete, return 


BRTYPE,NBTYP,CERR11 Check for nonbreak 
XSP, TEXTSP, GOTOTB, CERR11,CERR12 

Analyze. goto field 
STYPE, FGOTYP,CMPFTC Check for failure goto 
GOGOCL, GOTLCL Set up goto 
GOBRCL, RPTYP Set up closing break 
CMPUGO - . Join processing 


STYPE, FTOTYP,CERR11 Verify failure goto 
GOGOCL, GOTGCL Set up goto — 


GOBRCL, RBTYP Set up closing break 
CMPUGO Join processing 
FGOND,EXPR,,CDIAG Compile failure goto 
BRTYPE, GOBRCL, CERR11 


Verify failure goto 
7 FORWRD, , COMP3 Get to next characte 
BRTYPE, EOSTYP, CMPILM a 
Check for end of statement 


CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL, GOTOCL 

Insert jcto function 
CMOFCL, DESCR Increment offset 
SRNCL, CMOFCL Save location for success 
CSTNCL, CMOFCL' Set up failure offset 


CMBSCL, FRNCL,CSTNCL Insert argument of INIT 
CMOFCL,DESCR Increment offset 

CMBSCL, CMOFCL,GOGOCL 
Insert goto function 


» TREPUB, (FGOND) Copy goto into object code 


CMBSCL, SRNCL,CMOFCL Insert success offset into code 


RTN3 Compilation is complete, return 
BRTYPE,NBTYP,CERR11 Verify nonbreak 
XSP, TEXTSP, GOTOTB, CERR11,CERR12 
Analyze goto field 
STYPE,SGOTYP,CMPSTC Check for success goto 
GOTLCL Save goto type 
GOBRCL,RPTYP © Set up closing break 
CMPILN Join processing 


STYPE, STOTYD,CERR11 Verify success goto 


GOTGCL Save goto type 
GOBRCL,RBTYP Set up closing break 
SGOND, EXPR, , CDIAG Compile success goto 
BRTYPE, GOBRCL,CERR11 


Verify closing break 
e FORWRD, ,COMP3 Get to next character 
BRTYPE,EOSTYP,CERR11 


Verify end of statement 


CMOFCL, DESCR Increment offset 

WwcL . Restore goto type 

CM3SCL, CMOFCL, WCL Insert goto function 

7s TREPUB, (SGOND) Copy goto into object code 
CSTNCL, CMOFCL Set up failure offset 


CMBSCL,FRNCL,CSTNCL Insert argument of INIT 
CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL, GOGOCL 
Insert goto function 
e TREPUB, (FGOND) , RTN3 
Copy goto into object code 


EMSGCL, EMSG1 Erroneous label 

CDIAG 

EMSGCL, EMSG2 Multidefined label 

CDIAG : 

EMSGCL, =MSG3 Break character before subject 


rae ae 


00067004 
00001005 
00001006 
00001007 
00007008 
00001009 
00061010 
00001011 
00001012 
000019 13 
00007014 
000601015 
00G61016 
00001017 
009017018 
000913019 
000074920 
000017021 
00061022 
00001923 
00001024 
00001025 
00001026 
00001027 
0000671028 


-00001029 


00001030 
000€1031 
00601032 
00001033 
0000171934 
00001035 
0000 1036 
00001037 
00001038 
00001939 
00001040 


00001041 


00001042 
00001043 
COCcaTO4Ks 
00001045 
07°09 1046 
00001047 
00001048 
00001049 


. 00001050 


00001951 
00001052 
00001053 
00001054 
00001055 
00001056 
00001057 
00001058 
00001959 
00001060 
00001061 
00001062 
00001063 
09001064 
00001065 
00001066 
00001967 
00001068 
00001069 
09001070 
00901071 
00001072 
00001073 
00001074 
00001075 
00001976 
00001077 
00001078 
00001079 
00001080 
00001081 


SOURCE LISTING 


BRANCH CDIAG , 60991982 
+ : 00001983 
CERR5 SETAC EMSGCL, ILLBRK Yllegal character after pattern oocd1084 
BRANCH CDIAG 00001085 
* 00001086 
CERR12 SETAC EMSGCL, ILLEOS Illegal statement termination 09001087 
BRANCH CDIAG 00001088 
+ 00001089 
CERR11 SETAC EMSGCL, EMSG14 Characters after goto 00001090 
CDIAG INCRA BOSCL, DESCR Increment offset of beginning 00001091 
PUTD CMBSCL, BOSCL, ERORCL Insert ERROR function 00001092 
INCRA BOSCL, DESCR Increment offset 009001093 
PUTD CMBSCL, BOSCL,CSTNCL Insert argument of ERROR 00001094 
MOVD CMOFCL, BOSCL Reposition offset 00001995 
INCRA ESAICL, DESCR Increment count of errors 00001096 
ACOMP ESAICL, ESALIM,COMP9 Test for excessive errors 00001097 
AEQLC LISTCL,0, ,CDIAG1 Check for listing mode 00001098 
MOVD YCL, ERRBAS Set up length of error vector 00001099 
AEQLC BRTYPE, EOSTYP, »CDIAG3 00001100 
* , Check for end of statement 00001101 
GETLG XCL, TEXTSP Get length remaining 00001102 
SUBTRT YCL,YCL,XCL Compute position for marker 00001103 
CDIAG3 PUTLG. ERRSP,YCL Insert Length 00001104 
APDSP ERRSP,QTSP Set in marker 00001105 
AEQLC BRTYPE, EOSTYP, ,CDIAG2 00001106 
. ‘Check for end of statement 90001107 
STPRNT IOKEY,OUTBLK,LNBFSP Print statement 00001108 
CDIAG2 STPRNT IOKEY,OUTBLK,ERRSP Print error marker 00001109 
PUTLG ERRSP, YCL Insert length in marker 0000111C 
APDSP ERRSP, BLSP Blank out marker : 000011171 
GETSPC TSP,EMSGCL,0 Get error message 60001112 
SETLC CERRSP,0 Clear specifier 00001173 
APDSP CERRSP, STARSP Append attention getter Ood0dTTITa 
APDSP CERRSP, TSP , Append error message 00001115 
STPRNT IOKEY,OUTBLK,CERRSP Print error message ‘ 00001116 
STPRNT IOKEY,OUTBLK, BLSP Print blank line 00001117 
CDIAG1 AEQLC UNIT,0O,,RIN1 E3.0.1 
AEQLC BRTYPE,EOSTYP,,RTN3 . - E3.0.1 
STREAM XSP,TEXTSP, EOSTB,COMP3,,RIN3 00001120 
* Get to end of statement 00001121 
DIAGRN STREAD INBFSP,UNIT, DIAGRN, COMP5 00001122 
* Read card image 00001123 
SETSP TEXTSP, NEXTSP Set up new line 00001124 
STREAM XSP,TEXTSP,CARDTB,COMP3,COMP3 00001125 
* Analyze card type 00001126 
RCALL eNEWCRD, , (, »,RTN3) Process card image 00001127 
AEQLC LISTCL,0, ,DIAGRN 00001128 
STPRNT IOKEY,OUTBLK,LNBFSP Print out bypassed card 00001129 
BRANCH DIAGRN 00001130 
+ 00001131 
1a 00001132 
* 00091133 
* Element Analysis 00007134 
* 00601135 
ELEMNT PROC e Element analysis procedure 00001136 
RCALL ELEMND, UNOP, , RTN2 Get tree of unary operators 00001137 
STREAM XSP,TEXTSP, ELEMTB, ELEICH, ELEILI 00001138 
* Break out element 00001139 
ELEMNI SELBRA STYPE, (, ELEILT, ELEVBL, ELENST, ELEFNC, ELEFLT, ELEARY) 00001140 
* Branch on element type 00001141 
FSHRTN XSP,1 Delete initial quote 00001142 
SHORTN XSP,1 Remove terminal quote 00001143 
RCALL XPTR, GENVAR, (XSPPTR) QOCOTTES 
* Generate variable for literal 00001145 
ELEMN5 RCALL ELEXND, BLOCK,CNDSIZ Allocate block for tree node 00001186 
PuTDC ELEXND, CODE, LITCL Insert literal function 00001147 
RCALL ELEYND, BLOCK,CNDSIZ Allocate block for tree node 00007148 
PUTDC ELEYND, CODE, XPTR Insert literal value 00001149 
ADDSON ELEXND, ELEYND Add node as son 00001150 
ELEMN1 AEQLC ELEMND,0,ELEMN6 Check for empty tree 00001151 
MOVD ZPTR, ELEXND Set up return 00001152 
BRANCH ELEMRR Join return processing 00001153 
a 00001154 
ELEMN6 ADDSON ELEMND, ELEXND Add as son of present tree 00001155 
ELEMNR MOVD ZPTR,ELEMND Move tree to return 00001156 
ELEMRR AEQLIC ZPTR,FATHER,0,,RTZPTR 00001157 
. Is pointer at top of tree? 00001158 


GETDC ZPTR, ZPTR, FATHER Move back to father 00001159 
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* 


ELEILT 
* 


+ 
ELEFLT 
* 


* 
ELEVBL 
* 


ELENST 


ELEFNC 


ELEMN7 


ELEMN2 
* 


x 
ELEMN3 


ELEMN4& 


ELEARY 


ELEMNS 


ELEAR1 


BRANCH 


SPCINT 
SPREAL 


RCALL 


RCALL 
PuTDe 
BRANCH 


SHORTN 
RCALL 


RCALL 
RCALL 


INCRA 
BRANCH 


SHORTN 
RCALL 


RCALL 
PuTbDCc 
AEQLC 
ADDSON 
MOVD 
RCALL 
PUuTDC 
ADDSON 
MOVD 
PUSH 
RCALL 
POP 


SOURCE LISTING 
ELEMRR Continue up tree 


XPTR,XSP, ELEINT, ELEMNS 
Convert string to integer 


XPTR,XSP, ELEDEC, ELEMN5 
Convert string to real 


XPTR,GENVAR, (XSPPTR) 
Generate variable 
ELEXND, BLOCK,CNDSIZ Allocate block for tree node 


ELEXND, CODE, XPTR Insert name 

ELEMN1 Join exit processing 
ELEMND Save current tree . 
ELEXND, EXPR,,RTN1- Evaluate nested expression 
ELEMND Restore tree 


BRTYPE, RPTYP, ELECMA, ELEMN1 
Verify right parenthesis 


XSP,1 Delete open parenthesis 
XPTR, GENVAR, (XSPPTR) 
Generate variable for function name 
XCL, FINDEX, (XPTR) Find function descriptor 
ELEXND, BLOCK,CNDSIZ Allocate block for tree node 


ELEXND, CODE, XCL Insert function descriptor in node 
ELEMND,0,, =ELEMN? Is tree empty? 
ELEMND, ELEXND Add node as son to tree 
ELEXND Save current node ; 
ELEXND, EXPR,, RTN1 Evaluate argument of function 
ELEMND Resotre currert node 
ELEMND, ELEXND Add argument as son 
ELEMND, ELEXND Move to new node 
BRTY PE, RPTYP,’, ELEMN3 
Check for left parenthesis 
BRTYPE,CMATYP, ELECMA 

Verify comma 
ELEMND Save current node 
ELEXND, EXPR, »RTN1 Evaluate next argument 
ELEMND- Restore current node 
ELEMND, ELEXND Add argument as sibling 
ELEMND, ELEXND Move to new node 
ELEMN2 Continue 
ELEXND, ELEMND, FATHER 

Get father of current node 
XCL, ELEXND, CODE Get function descriptor 
YCL,XCL, 0 - Get procedure descriptor 
YCL, FNC. ,ELEMNR Check for fixed number requirement 
XCL, XCL Get number of arguments. given 
YCL,YCL os Get number of arguments expected 


XCL, YCL,ELEMNR, ELEMNR 

_ Compare given and expected. 
ELEYND,BLOCK,CNDSIZ Allocate block for tree node 
ELEYND, CODE, LITCL Insert literal function 
ELEXND, BLOCK,CNDSIZ Allocate block for tree node 
ELEXND,CODE,NULVCL Insert null ‘string value 


ELEYND, ELEXND Add null as son of literal 
ELEMND, ELEYND Add literal as extra argument 
ELEMND, ELEYND Move to new node 

XCL, 1 , Increment argument count 
ELEMNG Continue 

XSP,1 Remove left bracket 


XPTR,GENVAR, (XSPPTR) 

Generate variable for array or table 
ELEXND, BLOCK,CNDSIZ Allocate block for tree node 
ELEXND,CODE,ITEMCL Insert ITEM function 
ELEMND,0,, ELEMNS Is tree empty? 


ELEMND, ELEXND Add as son to tree 

ELEMND, ELEXND Move to new node 

ELEXND, BLOCK,CNDSIZ Allocate block for tree Hoda: 
ELEXND, CODE, XPTR Insert array or table name 
ELEMND, ELEXND Add as son to tree 

ELEMND, ELEXND Move to new node 

ELEMND Save current node 

ELEXND, EXPR,, RTN1 Evaluate argument 

ELEMND Restore current node 
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00001160 
00001161 

00001162 
00001163 

00001164 
00001165 
00001166 
00001167 
00001168 
00001169 
00001170 
00001171 

00001172 
00001173 
00001174 
00001175 
00001176 
00001177 
00001178 
00001179 
09001180 
00001181 
00001182 
00001183 
00001184 
00001185 
00001186 
00001187 
00001188 
00001189 
00001190 
00001191 
00001192 
00001193 
00001194 
00001195 
00001196 
00001197 
00001198 
00001199 
00001200 
00001201 
00001202 
00001203 
00001204 
00001205 
00001206 
00001207 
00001208 
00001209 
00001210 
00001211 
00001212 
00001213 
00003214 
00001215 
00001216 
00001217 
00001218 
00001219 
00001220 
00001221 
00001222 
00001223 
00001224 
00001225 
00001226 
00001227 
00001228 
00001229 
00001230 
00001231 
00001232 
00001233 
00001234 
00001235 
00001236 
00001237 


Senne? 


EXPR3 


pure 
EXPR7 


ADDSTB 


SETAC 
BRANCH 


AEQLC 
SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 


BRANCH © 


SOURCE LISTING 


ELEMND, ELEXND Add as sibling to tree 
ELEMND, ELEXND Move to new node 
BRTYPE,RBTYP,, ELEMNR 


Check for right bDrac 
BRTY PE, CMATYP, ELECMA, ELEAR1 
Verify comma 


EMSGCL, ILCHAR 
RTN1 Error return 


STYPE, QLITYP, ELEMN9 Check cause of run o 


ket 


‘ILLEGAL CHARACTER IN ELEMENT'* 


ut 


EMSGCL, OPNLIT *UNCLOSED LITERAL* 

RTN1 Error return 

EMSGCL, ILLINT ‘ILLEGAL INTEGER® 

RTN1 . Error return 

EMSGCL, ILLDEC *TLLEGAL REALt 

RTN1 ; Error return 

EMSGCL, ILLBRK tILLEGAL BREAK CHARACTER* 
RTN1 . . *' Brror return 


Expression Analysis 


PROC 
RCALL 


SETAC 
BRANCH 


PUSH 
RCALL 


POP 
RCALL 


“RCALL 


PUTDC 
AEQLC 
ADDSON 
MOVD 
BRANCH 


GETDC 


SETAV 
GETDC 


ADDSIB 
AEQLIC 


GETDC 
AEQLIC 
GETDC 


GETDC 
GETDC 
ACOMP 
INSERT 
BRANCH 


AEQLC 
MOVD 
BRANCH 


Procedure to compile expression 


id 
EXELND, ELEMNT, , (RTN1, EXPNUL) 
Compile element 


EXPRND, 0 zero expression tree 
EXPR2 - Join main processing 
EXPRND Save expression tree 


EXELND, ELEMNT, , (RTN1, EXPERR) 

Compile element 
EXPRND Restore expression t 
EXOPCL, BINOP, , (RTN1, EXPR7) 

Get binary operator 
EXOPND, BLOCK,CNDSIZ Allocate block for t 


EXPRND,0, EXPR3 Check for empty tree 
EXOPND, EXELND Add node as son 
EXPRND, EXELND Move to new node 
EXPR1 Continue processing 


EXOPCL, EXOPCL, 2* DESCR 

Get precedence descr 
EXOPCL, EXOPCL Get left precedence 
EXEXND, EXPRND, FATHER 

Get father of node 
XPTR, EXEXND, CODE Get function descrip 
XPTR, KPTR, 2* DESCR Get precedence descr 


XPTR, EXOPCL, EXPRG Compare precedences 
EXPRND, EXOPND Add node as sibling 
EXPRND, EXOPND Move to new node — 
EXPRND, EXELND Put current node as 
EXPRND, EXELND Move to new node 
EXPR1 Continue processing 
EXPRND, EXELND Add current node as 


EXPRND, FATHER, 9%, ¢EXPR11 

Check for root node 
EXPRND, EXPRND, FATHER 

Get father node 
EXPRND, FATHER,0, ,EXPR11 

Check for root node 
EXEXND, EXPRND, FATHER 

Get father node 


ree 


ree node 


_EXOPND, CODE, EXOPCL Insert binary operator 


iptor 


tor 
iptor 


son 


sibling 


XPTR, EXEXND, CODE Get function descriptor 
XPTR,XPTR, 2*DESCR Get precedence descriptor 
XPTR, EXOPCL, EXPRS Compare precedences 
EXPRND, EXOPND Insert node above 

EXPR1 Continue processing 
EXPRND,O, EXPR10 Check for empty tree 
XPTR, EXELND Set up for return 

EXPR9 Join end processing 
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v0901238 
c0001239 
00007240 
ecoot241 
00001242 
00001243 
00001244 
00001245 
00001246 
00001247 
00001248 
00001249 
00001250 
00004251 
00004252 
00001253 
00001254 
00001255 
00001256 
00001257 
00001258 
00001259 
00001260 
00001261 
00001262 
00001263 
00001264 
00001265 
00001266 
00001267 


~ 900072E3 


00001269 
00001270 
00001271 
00001272 
00001273 
00001274 
00001275 
00001276 
00001277 
00001278 
000014279 
00001280 
000017281 
00001282 
00001283 
00001284 
00001285 
00001286 
00001287 
00001288 
00001289 
00001290 
00001291 
00001292 
00001293 
00001294 
00001295 
00001296 
00001297 
000014298 
00001299 
00001300 
00001301 
00001302 
00001303 
00001308 
00001305 
00001396 
00001307 
00001308 
00001309 
00001310 
00001311 
00001312 
00001313 
00001374 
00001315 


SOURCE LISTING 


+ 00901316 
EXPR10 ADDSIB EXPRND, EXELND Add node as sibling 00001317 * 
MOVD XPTR, EXPRND Set up for return 00001318 : . 
EXPR9 AEQLIC XPTR,FATHER,0,,RTXNAM . 00001319 “y! 
* Check for root node 00001320 “eM 
GETDC XPTR,XPTR, FATHER Go back to father 00001321 
BRANCH EXPRO. Continue up tree 00001322 
7 * 00001323 
EXPR11 ADDSON EXOPND, EXPRND Add node as son 00001324 
BRANCH EXPR1 Continue processing 00001325 
a 00001326 
EXPNUL RCALL EXPRND, BLOCK,CNDSIZ Allocate block for tree node 00001327 
PUTDC EXPRND, CODE, LITCL Insert literal function 00001328 
RCALL EXEXND, BLOCK,CNDSIZ Allocate block for tree node 00001329 
PUTDC EXEXND,CODE,NULVCL Insert null string as value 00001330 
ADDSON EXPRND, EXEXND * Add node as son 00001331 
MOVD XPTR, EXPRND Set up for return 00001332 
BRANCH RTXNAM 00001333 
+ ‘ 00001334 
EXPERR SETAC EMSGCL, ILLEOS ‘ILLEGAL END OF STATEMENTS 00001335 
BRANCH RTN1 Take error return : 00001336 
+ ; 00001337 
I nye 00001338 
* 00001339 
* Location of Next Nonblank Character 00001340 
* : e 00001341 
FORWRD PROC ° Procedure to get to next character 00001342 
STREAM XSP, TEXTSP, FRWDTB,COMP3,FORRUN 00001343 
* 7 Break for next nonblank : 00001344 
FORJRN MOVD BRTYPE, STYPE Set up break type 00001345 
BRANCH RTN2 Return ‘ 00001346 
* 00001347 
FORRUN AEQLC UNTIT,0O, ,FOREOS © Check for input stream 00001348 
AEQLC LISTCL, 0,,FORRUR Check Listing switch ae 00001349 
STPRNT IOKEY,OUTBLK,LNBFSP Print card image ; ~ 00001350 
FORRUR STREAD INBFSP,UNIT,FORRUR,COMPS 00001351 
* Read new card iamge 00001352 
SETSP TEXTSP, NEXTSP Set up new line . * 00001353 
STREAM XSP,TEXTSP,CARDTB,COMP3,COMP3 ; 00001354 
* Determine card type 00001355 + 
RCALL «NEWCRD, , (FORRUN, FORWRD) 00001356 
* Process new card 00001357 
FOREOS MOVD BRTYPE, EOSCL Set up end-of-card 00001358 
BRANCH RTN2 Return 00001359 
+ 00001360 
FORBLK PROC FORWRD Procedure to get to nonblank 00001361 
STREAM XSP,TEXTSP, IBLKTB, RTN1, FORRUN, FORJRN 00001362 
* Break out nonblank from blank 00001363 
<i 000013648 
I ne ® 0001365 
* We Gp OX ee 00001366 
* Card Image Processing 00001367 
* 00001368 ’ 
NEWCRD PROC . Process new card imag 00001369 
: SELBRA STYPE, (,CMTCRD,CTLCRD,CNTCRD) ‘ 000014370 
* Branch on card type 00001371 
AEQLC LISTCL,0,,RTN3 Return if listing is off 00001372 
MOVD XCL,CSTNCL ° _ Copy of statement number 00001373 
INCRA XCL, 1 Increment number 00001374 
- EINTSPC TSP,XCL Convert it to STRING 00001375 
AEQLC LLIST, 0, CARDL Check for left listing 00001376 
SETLC RNOSP, 0 Clear right specifier 00001377 
APDSP RNOSP, TSP Set to statement number 00001378 
BRANCH RTN3 F 00091379 
+ 00001380 
CARDL SETLC £LNOSP,O Clear left specifier 00001381 
APDSP LNOSP, TSP Set to statement number 00001382 
BRANCH RTN3 00001383 
* 00001384 
CMTCRD AEQLC LISTCL,0,,RTN1 Return if listing is off 00001385 
CMTCLR SETLC LNOSP,0 Clear left specifier 00001386 
SETLC RNOSP,0 Clear right specifier 00001387 
APDSP LNOSP, BLNSP Blank left specifier 00001388 
APDSP RNOSP,BLNSP Blank right specifier 00001389 
BRANCH RTN1 00001390 
+ 00001391 
CNTCRD FSHRTN TEXTSP,1 Remove continue character 00001392 
AEQLC LISTCL, 0,,RTN2 Return if listing is off 00001393 
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* 
CARDLL 


fi 
CTLCRD 


TREPUB 


TREPU1 


TREPU4 


> 
TREPU2 


INTSPC 
AEQLC 
SETLC 
APDSP 
BRANCH 


SETLC 
APDSP 
BRANCH 


FSHRITN 
STREAM 


AEQLC 
STREAM 


LEXCMP 


SETAC 
BRANCH 


LEXCMP 


SETAC 
STREAM 


AEQLC 
STREAM 


LEXCMP 


SETAC 
BRANCH 


SETAC 
BRANCH 


LEXCMP 
AEQLC 


OUTPUT 
BRANCH 


SQURCE_ LISTING 


Get specifier for number 


TSP, CSTNCL 
LLIST, 0,CARDLL Check for left listing 
-RNOSP, 0 Clear right specifier 
RNOSP, TSP Set to statement number 
RTN2 
LNOSP, 0 Clear Left specifier 
LNOSP, TSP Set to statement number 
RTN2 
TEXTSP,1 Delete control character 
XSP, TEXTSP, FRWDTB, COMP3 , CMTCRD 

Get to next nonblank character 
STYPE,NBTYP,CMTCRD Verify nonbreak 
XSP, TEXTSP, L.BLXTB,CMTCLR, CMTCLR 

Break out command 
XSP, UNLSP,CTLCR1, ,CTLCR1 

Is it UNLIST? 
LISTCL, 0 Zero listing switch 
RTN1 © Return 
XSP,LISTSP,CTLCR3, ,CTLCR3 


Is it LIST? 
LISTCL, 1 Turn on listing 
XSP, TEXTSP, FRWDTB, COMP3,CMTCLR 
Get to next nonblank character 
STYPE,NBTYP,CMTCLR Verify nonbreak 
XSP,TEXTSP, LBLXTB, CMTCLR, CMTCLR 
Get type of listing 
XSP, LEFTSP, CTLCR2,,CTLCR2 
, Is it LEFT? 


LLIST, 1 Set left listing switch 
CMTCLR Join terminal processing 
LLIST, 0 ‘Zero left listing as default | 
CMTCLR Join terminal processing 


XSP, EJCTSP, CMTCLR, »CMTCLR 
Is it EJECT? 


LISTCL,0,,CMTCLR Skip eject if not listing 
OUTPUT, EJECTF Eject page 
CMTCLR Join terminal processing 


Publication of Code Trees 


Publish code tree 


¢ 

YPTR Restore root node 
XPTR,YPTR, CODE Get code descriptor 
CMOFCL, DESCR Increment offset 


CMBSCL,CMOFCL,XPTR Insert code descriptor 
ZPTR,CMBSCL,CMOFCL Compute total position 
ZPTR,OCLIM, TREPUS Check against limit 
YPTR,LSON,0O,,TREPU2 Ys there a left son? / 
YPTR,YPTR, LSON Get left son 

TREPU1 Continue 


YPTR, RSIB,0,,TREPU3 Is there a right sibling? ‘ 


YPTR, YPTR, RSIB Get right sibling 

TREPU1 Continue 
YPTR,FATHER,0,,RTN1 Is there a father? 
YPTR,YPTR, FATHER Get father 

TREPU2 .. Continue 
ZPTR,CMOFCL,CODELT Compute additional to get 
ZPTR,C Insert CODE data type 
XCL, BLOCK, Z2PTR Allocate new code block 
LPTR,0O,, TREPU6B Is there a last label? 
LPTR, ATTRIB, XCL Insert new code position 
XCL,CMBSCL, CMOFCL Move old code 

CMBSCL, DESCR,GOTGCL Insert direct goto 
CMBSCL, 2*DESCR, DOTCL 


Insert literal function 
CMBSCL, 3*DESCR,XCL Insert pointer to new code 
CMBSCL,3*DESCR _ Update end pointer 
» SPLIT, (CMBSCL) Split off old portion 


rar, 


00001394 
00001395 
00001396 
00001397 
€0001398 
006001399 
00001400 
00001401 
00901402 
00001803 
00001408 
00001405 
00001406 
00001407 
00001408 
00001409 
00001810 
00001411 
00001412 
00001413 
00001916 
00001415 
00001416 
COCC1417 
00001418 
00001419 
00001420 
00001821 
00001422 
00001423 
00001424 
000014625 
00001426 
00001427 
00001428 
00001429 
00001430 
00001431 
00001432 
00001433 
00001434 
00001435 
00001436 
00001437 
00001438 
00001439 
00001440 
00001441 
0000148482 
000014643 
00001448 
00001445 
00001446 
00001487 
00001448 
00001449 
00001450 
00001451 
00001452 
00001453 
00001454 
00001455 
00001456 - 
00001457 
00001458 
00001459 
00001460 
00001461 
00001462 
00001463 
00001464 
00001465 
00001466 
00001467 
00001868 
00001469 
00001470 


 00001K71 


SOURCE LISTING 


MOVD CMBSCL,XCL Set up new compiler base pointer 00001472 
SUM OCLIM, CMBSCL,ZPTR Compute new limit . 00001473 
DECRA OCLIM, 5*DESCR Leave safety factor 00001474 
BRANCH TREPU4— Rejoin processing 00001475 
©. 00001476 
en tn 00001477 
* 00001478 
* Unary Operator Analysis 00001479 
* 00001480 
UNOP PROC e Unary operator analysis 00001481 
RCALL ,FORWRD,,COMP3 Get to next nonblank character 00001482 
SETAC XPTR,0 zero code tree 00001483 
AEQLC BRTYPE, NBTYP,RTN1 Verify nonbreak 00001484 
ONOPA STREAM XSP, TEXTSP, UNOPTB, RTXNAM,RTN1 E3.48.3 
* Break out unary operator 00001486 
RCALL YPTR, BLOCK,CNDSIZ . Allocate block for tree node 00001487 
PUTDC YPTR, CODE, STYPE Insert function descriptor 00001488 
AEQLC XPTR,0,,UNOPB Is tree empty 00001489 
ADDSON XPTR,YPTR Add new node as son 00001490 
UNOPB MOVD' £XPTR,YPTR Move to new node 00001491 
BRANCH UNOPA Continue 00001492 
*_ * 00001493 
ee 0001494 
TITLE ‘Interpreter Executive and Control Procedures? 00001495 
* 00001496 
* ' Code Basing ' 000071497 
* iS 00001498 
BASE PROC ® Interpreter code basing procedure 00001499 
SUM OCBSCL,OCBSCL,OCICL Add offset to base ; 00001500 
SETAC OCICL,0 zero offset 00001501 
BRANCH RTNUL3 00001502 
+ 00001503 
tne nee * 0001504 
* ' 00001505 
* Direct Goto . a _ 060001506 
* 00001507 
GOTG PROC ° 3 <X> 00001598 
RCALL OCBSCL, ARGVAL, , INTR5S 00001509 
a Get code pointer : : 00001510 | 
VEQLC OCBSCL,C,INTR4 Must have CODE data type 00001511 
SETAC OCICL,0 zero offset 00001512 
BRANCH RTNUL3 , 00001513 
* 00001514 
Ti HE 00001515 
* 7s 000901516 
* Label Goto 00001517 
* 00001518 
GOTL PROC ’ : 2 (X) 00001519 
INCRA OCICL, DESCR Increment offset 00001520 
GETD XPTR,OCBSCL, OCICL Get object code descriptor 00001521 
TESTF XPTR,FNC,,GOTLC ~ Test for function : 00001522 
GOTLV ACOMPC TRAPCL,0,,GOTLV1,GOTLV1 a 00901523 
* Check &TRACE 00001524 
LOCAPT ATPTR, TLABL, XPTR,GOTLV1 00001525 
*- . \ Look for LABEL trace 00001526 
PUSH XPTR Save variable . 00001527 
RCALL es TRPHND, ATPTR E3.3.1 
* ‘ y Perform trace 00001529 
POP XPTR Restore variable 00001530 
GOTLV1 DEQL XPTR, RETCL, GOTL1 Compare with RETURN 00001531 
RRTURN ,6 Return by value 00001532 
ae 00001533 
GOTL1 DEQL XPTR, FRETCL,GOTL2 Compare with FRETURN 00001534 
RRTURN ,4 Fail 00001535 
* 00001536 
GOTL2 DEQL XPTR, NRETCL,GOTL3 Compare with NRETURN 00001537 
RRTURN ,5 Return by name 00001538 
+ 000071539 
GOTL3 GETDC OCBSCL,XPTR,ATTRIB Get object code base 000015480 
AEQLC OCBSCL, 0,, INTRY Must not be zero 00001541 
SETAC OCICL,0 zero offset 00001542 
BRANCH RTNUL3 Return 00001543 
oe 00001545 
GOTLC RCALL XPTR, INVOKE, XPTR, (INTRS, , NEMO) Q000154K5 
* Evaluate goto 00001546 
VEQLC XPTR,S,INTR4,GOTLV Variable must be STRING 00001547 


00001548 


a ce 00001549 
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O 


Internal Goto 


PROC 
INCRA 
GETD 
BRANCH 


Statement Initialization 


PROC 
MOVD 
INCRA 
GETD 


' MOVA 


SETAV 
ACOMP 


INCRA 
ACOMPC 


LOCAPT 
RCALL 


BRANCH 


OCICL, DESCR 


SOURCE LISTING 


Interpreter goto procedure 
Increment offset 


OCICL,OCBSCL,OCICL Get offset 


RTNUL3 


se 

LSTNCL, STNOCL 
OCICL, DESCR 

XCL, OCBSCL, OCICL 
STNOCL, XCL 7s 
FRTNCL, XCL 


Return 


Statement initialization procedure 
Update &LASTNO 

Increment offset 

Get statement data 

“Update &STNO 

Set up failure offset ~ 


EXNOCL, EXLMCL, EXEX, EXEX 


EXNOCL, 1 


Check &STLIMIT 
Increment &STCOUNT 


TRAPCL, 0, » RTNUL3,, RTNUL3 


Check &TRACE 


ATPTR, TKEYL, STCTKY, RTNUL3 


e TRPHND, ATPTR 


RTNULI 


E3.3.1 
Perform trace 


Basic Interpreter Procedure 


PROC 
INCRA 
GETD 
TESTF 


~RCALL 


MOVD 
INCRA 
ACOMPC 


LOCAPT 
RCALL 


BRANCH 


Procedure Invocation 


PROC 
POP 
GETDC 
VEQL 
BRANIC 


TESTF 


TITLE 


Argument Evaluation 


RCALL 


GETDC 
BRANCH 


Interpreter core procedure 


e 

OCICL, DESCR ’ Increment offset 
XPTR,OCBSCL,OCICL Get object code descriptor 
XPTR, FNC, INTERP Test for function 

XPTR, INVOKE, (XPTR) » (, INTERP, INTERP,RIN1, RTN2,RTN3)— 
OCICL, FRTNCL set offset for failure so 
FALCL, 1 Increment ESTFCOUNT 


TRAPCL,0,,INTERP, INTERP 


Check &TRAC 


ATPTR, TKEYL, FALKY, INTERP 


« TRPHND, ATPTR 


INTERP 


INCL 


XPTR, INCL,0 
INCL,XPTR, INVK2 


INCL,0O 


E3.3.1 
Perform trace 


-Invokation procedure 

Get function index 

Get procedure descriptor 
Check argument counts 

If equal, branch indirect 


XPTR, FNC,ARGNER, INVK1 


Check for variable argument number 


‘Argument Evaluation Procedures* 


Procedure to evaluate argument 


ve 
OCICL, DESCR Increment interpreter offset 
XPTR,OCBSCL,OCICL Get argument 
XPTR, FNC, ,ARGVC Test for function descriptor 
INSW,0,,ARGV2 Check SINPUT 
2PTR, INATL, XPTR, ARGV2 

Look for input association 
ZPTR,ZPTR, DESCR Get input descriptor 


XPTR,PUTIN, (ZPTR,XPTR) , (FAIL, RTXNAM) 


XPTR, INVOKE, (XPTR) , (FAIL, ARGV1,RTXNAM) 


XPTR, XPTR, DESCR 


RTXNAM © 


Get value from name 
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00001550 
00091551 
00001552 
00001553 
00001554 
00001555 
00001556 
00001557 
00001558 
00001559 
00001560 
00001561 
00001562 
00001563 
00001564 
00001565 
00001566 
00001567 
00001568 
00001569 
00001570 
00001571 
00001572 
00001573 


00001575 
00001576 
00001577 
00001578 
00001579 
00001580 
00001581 
00001582 
00001583 
00007584 
00001585 
00901586 
00001587 
00001588 
00001589 
00001590 
90001591 


90001593 
00001594 
C000C1595 
00001596 
00001597 
00001598 
00001599 
00001600 
00061601 
00001602 
00001603 
00007604 
00901605 
000017606 
00001607 
00001608 
00001609 
00001610 


* 00001611 


00001612 | 
00001613 
CONS TET4 
00001615 
00001616 
00001617 
00001618 
00001619 
00001620 
00001621 
00001622 
00001623 
00001624 
00001625 
60001626 
00001627 


SOURCE LISTING 
- 00001628 
a 0001629 
* 00001630 
* Evaluation of Unevaluated Expressions - 00001631 
* 00001632 
EXPVAL PROC ; Procedure to evaluate expression 00001633 
SETAC .SCL,1 Note procedure entrance 00001634 
EXPVIN POP XPTR Restore pointer to object code 00001635 
EXPVJ2 PUSH (OCBSCL,OCICL, PATBCL, PATICL, WPTR, XCL eXCL, TCL) 00001636 
PUSH (MAXLEN, LENFCL, PDLPTR, PDLHED, NAMICL, NHEDCL) 00001637 
* Save system state descriptors - 00001638 
SPUSH (HEADSP, TSP, TXSP, XSP) 00001639 
* Save system state specifiers 00001640 
MOVD OCBSCL, XPTR Set up new code base 00001641 
SETAC OCICL, DESCR Initialize offset 0000171642 
MOVD PDLHED, PDLPTR . Set up new history list header 90001643 
MOVD NHEDCL,NAMICL | Set up new name list header 00001644 
GETD XPTR,OCBSCL,OCICL Get object code descriptor 00001645 
TESTF XPTR,FNC,,EXPVC Check for function | 00001646 
EXPV11 AEQLC SCL,0,, EXPV6 Check procedure entry 00001647 
AEQLC INSW,0, ,EXPV4 Check &INPUT 00001648 
LOCAPV ZPTR, INATL, XPTR, EXPV4 00001649 
* : Look for input association 00001650 
GETDC ZPTR, ZPTR,DESCR Get input association 00001651 
RCALL XPTR, PUTIN, (ZPTR,XPTR) , (EXPV1, EXPV5) 00001652 
* _ Perform input ee 00001653 
*. ~ 00001654 
EXPV4 GETDC XPTR,XPTR,DESCR Get value 00001655 
EXPV6 SETAC SCL, 2 Set up exit : . 00001656 
BRANCH EXPV7 . Join processing 00001657 
* _ 000901658 
EXPV9 PoP SCL Popoff switch : 00001659 
EXPV1 SETAC SCL, 1 Set new exit switch ; 00001660 
EXPV7 SPOP (XSP, TXSP , TSP, HEADSP) 00001661 
* : Restore system specifiers 90001662 
POP (NHEDCL, NAMICL, PDLHED, PDLPTR, LENFCL,MAXLEN) 00001663 . 
POP (TCL, YCL, XCL, WPTRe PATICL, PATBCL, OCICL, OCBSCL) 00001664 © 
* Restore system descriptors |. 00001665 
SELBRA SCL, (FAIL,RTXNAM, RTZPTR) 00001666. 
* Select exit | 00001667 . ! > ] 
+ ; 00001668 wo 
EXPVC PUSH SCL Save entrance indicator 00001669 
RCALL XPTR, INVOKE, XPTR, (EXPV9,EXPVS,) 00001670 
* Evaluate function 00001671 
POP SCL Restore entrance indicator 00001672 
AEQLC SCL,0, EXPV6 Check entry indicator 00001673 
SETAC SCL,3 Set exit switch 00001674 
MOVD Z2PTR, XPTR “ Set up value 00001675 
BRANCH EXPV7 Join end processing 00001676 
* 00001677 
EXPV5 POP SCL “~ Restore entry indicator 000901678 
BRANCH EXPV11 - Join processing with name 00001679 
+ ; 00001680 
EXPEVL PROC EXPVAL Procedure to get expression value 00001681 
: SETAC SCL, 0 Set entry indicator . 00001482 
BRANCH EXPVJN ‘Join processing 00001683 
* 00001684 
EVAL PROC EXPVAL EVAL (X) 00001685 
RCALL XPTR, ARGVAL, » FAIL Get argument 00001686 
VEQLC XPTR, E,, EVAL1 Is it EXPRESSION? 00001687 
VEQLC XPTR,I,,RTXPTR INTEGER is idempotent 00001688 
VEQLC XPTR,R,,RTXPTR REAL is idempotent 00001689. 
VEQLC XPTR,S,INTR1 Is it STRING? 000017690 
LOCSP XSP,XPTR Get specifier 00001691 
LEQLC XSP,0,,RTXPTR . E3.1.4 
SPCINT XPTR,XSP,,RTXPTR Convert to INTEGER 00001692 
SPREAL XPTR,XSP,,RTXPTR Convert to REAL 00001693 
MOVD ZPTR, XPTR Set up to convert to EXPRESSION 00001694 
RCALL XPTR,CONVE,, (FAIL, INTR10) 09001695 
* ; Convert to EXPRESSION - 00001696 
EVAL? SETAC SCL,0 Set up entry indicator 00001697 
BRANCH EXPVJ2 Join processing 00001698 
ae 00001699 
ie (0001700 
* 00001701 
* Evaluation of Integer Argument 00001702 
* 00001703 
X 


NTVAL PROC .|. Integer argument procedure 00001704 
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O 


INCRA 
GETD 
TESTF 


‘INTV1 AEQLC 


LOCAPV 


GETDC 
RCALL 


INTV LOCSP 
SPCINT 


INTV3 GETDC. 
INTV2 VEQLC 
VEQLC 


INTVC RCALL . 


PATVC RCALL 
* 


* 

PATV2 GETDC 

PATV3 VEQLC 
VEQLC 
VEQLC 
VEQLC 
VEQLC 
RCALL 
MOVBLK 
PUTDC 

_ MOVD 

BRANCH 


PATVR REALST 


RCALL XPTR,GENVAR, XSPPTR,RTXNAM 
* Generate variable 
* 
EG 
* 
* Evaluation of Argument as String 


VARVAL PROC 
INCRA 
GETD 
TESTF 

VARV1 AEQLC 
LOCAPV 


GETDC 
RCALL 


VARV4 GETDC 
VARV2 VEQLC. 
VEOLC 


* 
VARVC RCALL 


SQURCE_ LISTING 


OCICL, DESCR Increment offset 
XPTR,OCBSCL,OCICL Get object code descriptor 
XPTR,FNC,,INTVC Check for function 
INSW,0,,INTV3 Check SINPUT 
ZPTR, INATL, XPTR, INTV3 

Look for input association 
ZPTR,ZPTR,DESCR Get association 
XPTR, PUTIN, (ZPTR,XPTR) , FAIL 

Perform input 
XSP,XPTR Get specifier for string 
XPTR,XSP,INTR1,RTXNAM 

Convert to integer 


\ 
XPTR, XPTR, DESCR Get value 
XPTR, I,» RTXNAM INTEGER desired 
XPTR,S, INTR1, INTV STRING must be converted 


XPTR, INVOKE, (XPTR) , (FAIL, INTV1,INTV2) 


* 

a 

Seer acs te ee ee ee, ee 

* Evaluation of Argument as Pattern 

* - : 

. PATVAL PROC ° Evaluate argument as pattern 

-INCRA OCICL, DESCR Increment offset 
GETD XPTR,OCBSCL,OCICL Get object code descriptor 
TESTS XPTR, FNC, ,PATVC Check for function descriptor 

PATV1 AEQLC INSW, 0, ,PATV2 Check SINPUT 

LOCAPV ZPTR, INATL, XPTR, PATV2 

* : Look for input association 
’ GETDC ZPTR, ZPTR, DESCR Get association 
RCALL 


XPTR, PUTIN, (2PTRe XPTR), (FAIL, RTXNAM) 
. Perform input 


XPTR, INVOKE, (XPTR) ¢ (FAIL, PATV1,PATV3) 
Evaluate argument 


XPTR,XPTR,DESCR Get value 
XPTR,P, »RTXNAM | Is it PATTERN? 


XPTR,S,¢RTXNAM Is it STRING? 
XPTR,I,,GENVIX . Is it INTEGER? 

. XPTR,R,, PATVR Is it REAL? 
XPTR,E,INTR1 Is it EXPRESSION? 


TPTR, BLOCK, STARSZ Allocate block for pattern 


TPTR,STRPAT,STARSZ Copy pattern for expression 


TPTR,4*DESCR,XPTR Insert expression 


XPTR,TPTR Set up value 
RTXNAM Return 
XSP,XPTR . Convert REAL to STRING 


e 
OCICL, DESCR Increment offset 
XPTR,OCBSCL,OCICL Get object code descriptor 
XPTR, FNC, »VARVC Check for function 
INSW, 0,,VARV4 - Check &INPUT 
ZPTR, INATL, XPTR, VARV4 

Look for input association 
ZPTR,ZPTR,DESCR Get input association 
XPTR, PUTIN, (ZPTR,XPTR) , (FAIL, RTXNAM) 

Perform input 


XPTR,XPTR,DESCR Get value . 
XPTR,S,,RTXNAM Is it STRING? 
XPTR,L,INTR1,GENVIX Convert INTEGER to STRING 


XPTR, INVOKE, (XPTR) , (FAIL, VARV1,VARV2) 
Evaluate function 


* Evaluation of Argument Pair 


- 25 - 


Evaluate argument as string 


00001705 
00001706 
00003707 
00001708 
00001709 
00001719 
00001711 
00001712 
00001713 
00001714 
00001715 
00001716 
00001717 
00001718 
00001719 
00001720 
00001721 
00001722 
00001723 
00001724 
00001725 
00001726 
00001727 
00001728 
00061729 
00001730 
00001731 
00001732 
00001733 
00001734 
00901735 
00001736 
00001737 
00001738 
00001739 
000017490 
00001741 
00001742 
00001743 
00001744 
00001745 
00001746 
00001747 
00001748 
00001749 
00001750 
00001751 
00001752 
00001753 
00001754 
00001755 
00001756 
00001757 
00001758 
00001759 
00001760 
00001761 
00001762 
00001763 
000071764 
00001765 
00001766 
00001767. 
00001768 
00001769 
00001770 
00001771 
00001772 
00001773 
00001774 
00001775 
00001776 
00001777 
00001778 
00001779 
00001780 
00001781 
00001782 


SOURCE LISTING 


* 00001783 
XYARGS PROC ® Procedure to evaluate argument pair 00001784 
SETAC SCL,0 : Note first argument 000014785 % 
XYN INCRA OCICL,DESCR Increment offset | 000014786 im, 
GETD YPTR,OCBSCL,OCICL Get object code descriptor 00004737 i 
TESTF YPTR,FNC,,XYC Check for function 00001788 andl 
XY¥1 AEQLC INSW,0,,XY2 Check SINPUT 00001789 
LOCAPVY ZPTR, INATL,YPTR,XY¥2 Look for input association 00001790 
GETDC ZPTR, ZPTR, DESCR Get input association 000014791 
RCALL YPTR,PUTIN, (ZPTR,YPTR) »,FAIL 00001792 
* Perform input , 000014793 
XY3 AEQLC SCL,0O,RTN2 Check for completion 000014794 
SETAC SCL,1 Note seconf argument 00001795 
MOVD . XPTR, YPTR Set up first argument 00001796 
BRANCH XYN Go around again 00001797 
* 00001798 
XY2 GETDC | YPTR,YPTR,DESCR Get value 000074799 
BRANCH XY3 Continue : 00001800 
* une? 00001801 
xyc PUSH  (SCL,XPTR) Save indicator and argument 00001802 
RCALL YPTR, INVOKE, (YPTR) , (FAIL, XY¥4) 00001893 
* '  . Evaluate function 0000 1804 
POP. (XPTR, SCL) Restore indicator and argument 00001805 
BRANCH XY3 Join processing 0000 4806 
* 00001807 
XY4 POP . (XPTR, SCL) Restore indicator and argument 00004868 
BRANCH XY1 ory 8 Join processing oo : 00001809 
* . _ ° 00001810 
gr eceena—enennennee® 10001811 
TITLE ‘Arithmetic Operations, Predicates, and Functions? 00001812 
ADD PROC ‘ x + yY ‘ ; C000 1873 
SETAC SCL, 1 Q00d0Th 4 
BRANCH ARITH Aj ; 00001815 
+ 00001816 
DIV PROC ADD X¥7Y ; 000034317 
SETAC SCL, 2 00001818 
BRANCH ARITH 00001819 
+ : 00003820 
EXP PROC . ADD X ** Y and X # Y ; 00001821 
SETAC SCL, 3 000014822 
BRANCH ARITH : 00001823 
* ; 00007824 
MPY PROC ADD xX * Y : 00001825 
SETAC SCL,4 0000 71826 
BRANCH ARITH 000034827 
* 00001828 
SUB PROC ADD KX- Y 00001829 
SETAC SCL,5 00001830 
BRANCH ARITH 00001831 
+ J “8 000014832 
EQ PROC ADD “ EQ(X,Y). 00001833 
SETAC SCL,6 0000171834 
BRANCH ARITH -00001835 
* 00001836 
GE PROC ADD . GE (X, Y¥) : 00001837 
SETAC SCL,7 . 00001838 : 
BRANCH ARITH 00001839 
_ 00004840 
GT PROC ADD GT (X, Y) 00001841 
SETAC SCL, 8 00007842 
BRANCH ARITH 00001843 
a O00C TS 44 
LE PROC ADD LE (X, Y) 00001845 — 
SETAC SCL,9 0000 1846 
BRANCH ARITH 000017847 
* 00001848 — 
LT PROC ADD LT (X, Y) 00007849 
SETAC SCL,10 ; 000014850 
BRANCH ARITH 00001851 
baie 00001852 
NE PROC ADD NE (X, Y) ; 00001853 
SETAC SCL, 11 00001854 
BRANCH ARITH 00001855 
a 00001856 
REMDR PROC ADD . REMDR (X, Y) 00001857 
SETAC SCL,12 00001858 
BRANCH ARITH 00001859 
ae 00001860 
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eciceco” 


0 


ARITH 


ARTHRR 
* 


ARTHIR 
+ 
ARTHRI 


we 
ARTHVR 


PUSH 
RCALL | 
POP 
SETAV 
MOVV 
DEQL 
DEOL 
DEQL 
DEQL 
DEQL 
DEQL 
DEQL 
DEQL 
DEQL 


SELBRA 


LOCSP 


SPCINY 


SPREAL 


LOcCSP 
SPCINT 
SPREAL 


LOCSP 

SPCINT 
SPREAL 
SELBRA 


INTRL 
BRANCH 


INTRL 
BRANCH 


LOCSP 


SPCINT 
SPREAL 


LOCSP 
SPCINT 
SPREAL 
SUM 
DIVIDE 
EXPINT 
MULT 
SUBTRT 
AEQL 
ACOMP 
ACOMP 
ACOMP 
ACOMP 
AEQOL 
ADREAL 
DVREAL 


EXREAL 


SOURCE LISTING 


ScL Save procedure switch 
/XYARGS, ,»FAIL Evaluate arguments 

scL Restore procedure switch 
DICL,XPTR Set up data type pair 
DICL,YPTR 


DTCL,IIDTP,,ARTHII INTEGER-INTEGER 
DTCL,IVDTP,,ARTHIV INTEGER-STRING 
DTCL,VIDTP,,ARTHVI STRING-INTEGER 
DTCL,VVDTP,,ARTHVV STRING-STRING 
DTCL,RRDTP,,ARTHRR REAL-~REAL 
DTCL,IRDTP, ,ARTHIR INTEGER-REAL 
DTCL,RIDTP,,ARTHRI REAL-~INTEGER 
DTCL,VRDTP, ,ARTHVR STRING~REAL 
DTCL,RVDTP, INTR1,ARTHRV 

REAL~ STRING 


SCL, (AD, DV, EX, MP, SB,CEQ,CGE, CGT, CLE, CLT, CNE, RM) 


XSP,XPTR _ Get specifier 
XPTR,XSP,, ARTHII Convert string to integer > 
XPTR,XSP,INTR1,ARTHRI 

Convert to real if possible 


YSP,YPTR Get specifier 
YPTR,YSP,,ARTHIT Convert string to integer 
YPTR,YSP,INTR1,ARTHIR 

Convert to real if possible 


XSP, XPTR 
XPTR,XSP, ,ARTHIV 


Get specifier 
Convert string to integer 


_XPTR,XSP,INLR1,ARTARV 


Convert to real if possible 


SCL, (AR, DR, EXR,»MR,SR, REQ, RGE, RGT, RLE, RLT, RNE, INTR1) 


XPTR,XPTR Convert integer to real 
ARTHRR y 
YPTR,YPTR Convert integer to real 
ARTHRR 

XSP,XPTR Get spedifier 


XPTR,XSP,,ARTHIR Convert string to integer 
XPTR,XSP,INTR1,ARTHRR 
Convert to real if possible 

YSP,YPTR 
YPTR,YSP, ,ARTHRI Convert string to integer 
YPTR, YSP,INTR1,ARTHRR 

: Convert to real if possible 
ZPTR,XPTR, YPTR,AERROR,ARTN 
2PTR,XPTR, YPTR, AERROR,ARTN 
ZPTR,XPTR, ¥Y PTR, AERROR,ARTN 
ZPTR, XPTR, YPTR, AERROR, ARTN 
ZPTR,XPTR, YPTR, AERROR,ARTN 
XPTR, YPTR, FAIL, RETNUL 
XPTR, YPTR, RETNUL, RETNUL, FAIL 
XPTR, YPTR, RETNUL, FAIL, FAIL 
XPTR, YPTR, FAIL,RETNUL, RETNUL 
XPTR, YPTR, FAIL, FAIL, RETNUL 
XPTR, YPTR, RETNUL, FAIL 
ZPTR, XPTR, YPTR,AERROR,ARTIN 
ZPTR, XPTR, YPTR, AERROR,ARTN 


ZPTR, XPTR, YPTR, AERROR,ARTN 


oS 


60001861 
C0001862 
00001363 
00001864 
00001865 
00001866 
00001867 
00001868 
00901869 
00001870 
00001871 
00001872 
00001873 
00001874 
00901875 
00001876 
00001877 
00001878 
00001879 
00001880 
00001881 
00001882 
00001883 
00001884 
00001885 
0000171886 
00001887 
00001888 
00001889. 
00001890 


~ 0000189? 


00001892 
00001893 
00001894 
00001895 
00001896 
00001897 
00001898 
00001899 


00001900 


00001901 
00001902 
00001903 
00001904 
00001905 
00001906 
00001907 
00001908 
00001309 


, 0000719710 


00001911 
00001912 
00001913 
00001914 
00001915 
06001916 
00001917 
00001918 
00001919 
00001920 
00001921 
00001922 
00001923 
00001928 
00001925 
00001926 
00001927 
00001928 


.00091929 


00001930 . 
00901931 
00001932 
00001933 
00001934 
00001935 
00001936 
00001937 
00001938 


SOURC 

* ; i é 

MR MPREAL ZPTR,XPTR, YPTR,AERROR,ARTN 

* 

SR SBREAL ZPTR,XPTR,YPTR,AERROR,ARTN 

* . 

REQ RCOMP XPTR,YPTR,FAIL, RETNUL,FAIL 

* 

RGE RCOMP XPTR,YPTR,RETNUL, RETNUL, FAIL 

* 

RGT RCOMP XPTR,YPTR,RETNUL,FAIL, FAIL 

4 

RLE RCOMP XPTR,YPTR, FAIL, RETNUL, RETNUL 

* 

RLT RCOMP XPTR,YPTR, FAIL, FAIL, RETNUL 

* f 

RNE RCOMP XPTR,YPTR, RETNUL, FAIL, RETNUL 

* 

RM DIVIDE ZPTR,XPTR, YPTR,AERROR 

* ; First divide 
MULT WPTR, ZPTR, YPTR 
SUBTRT ZPTR,XPTR,WPTR 
BRANCH ARTN 

* . 

Sa a Na a ad Se 

* 

* INTEGER (X) 

* 

INTGER PROC 5 INTEGER (X) 
RCALL XPTR,ARGVAL,,FAIL Get argument 
VEQLC XPTR,I,,RETNUL 
VEQLC XPTR,S,FAIL 
LOCSP XSP,XPTR Get specifier 
SPCINT XPTR,XSP,FAIL,RETNUL 


* 

ot 

* 

MNS PROC 
RCALL 
VEQLC 
VEQLC 
VEQLC 


MNSM MNSINT 
* 


* 5 : a | 


Arithmetic Negative 


XPTR, ARGVAL, , FAIL 
XPTR,I, -MNSM 
XPTR,S,,MNSV 
XPTR,R,INTR1,MNSR 


ZPTR, XPTR,AERROR,ARIN 
oe Form negative of integer 


*Ppattern-valued Functions and Operations’ 


Multiply truncated part 
Get difference 


INTEGER succeeds 
STRING must be checked 


Try conversion to INTEGER 


-X 


Get specifier for string 
~. Convert to INTEGER 

Convert to REAL 

Form negative of real 


Is it STRING? 
Is it REAL? 


LISTING 


Get argument 

INTEGER acceptable 
STRING must be converted 
REAL is acceptable 


Get argument 
Is it INTEGER? 


eo .- 


Get specifier 


Convert STRING to INTEGER 
ZPTR,XSP,INTR1,ARTN Convert STRING to REAL 


ANY (S) 


Save function descriptor 
Join common processing 


BREAK (S) 


Save function descriptor. 
Save minimum length of zero 


MNSY LocsP XSP,XPTR : 
SPCINT XPTR,XSP, ,MNSM 
SPREAL XPTR,XSP,INTRI 

MNSR MNREAL ZPTR,XPTR 
BRANCH ARTN 

* 

* 

* Unary Plus Operator 

* . 

PLS PROC * +X 
RCALL ZPTR,ARGVAL, «FAIL 
VEQLC ZPTR,I,,ARTN 
VEQLC ZPTR,S, «PLSV 
VEQLC ZPTR,R,INTR1,ARTN 

* 

PLSV LOCSP XSP,ZPTR 
SPCINT ZPTR,XSP,,ARTN 
SPREAL 

+. 
TITLE 

ANY PROC ’ 
PUSH ANYCCL 
BRANCH CHARZ 

* 

BREAK PROC ANY 
PUSH BRKCCL 
PUSH ZEROCL 
BRANCH ABNSND 


Join common processing 
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00001939 
00001940 
00001941 
00001942 
00001943 
00001944 
00001945 
00001946 
00001947 
00001948 
00001949 
00001950 
00001951 
00001952 
00001953 
0001954 
00001955 
00001956 
00001957 
00001958 
000901959 
00001960 
00001961 
00001962 
00001963 
00001964 
00001965 
00001966 
00001967 
00001968 
00001969 
00001970 
00001971 
00001972 
00001973 
00001974 
00001975 
00001976 
00001977 
00001978 
00001979 
¢0001980 
00001981 
00001982 
00001983 
00001984 
06001985 
00001986 
00001987 
00001988 
00001989 
00001990 
00001991 
00001992 
00001993 
00001994 
00001995 
00001996 
00001997 
00001998 
00001999 
00002000 
00002001 
€0902002 
00002003 
00002004 
00002005 
00002006 
00002007 
00002008 
00002009 
00002010 
00002011 
00002012 
00002013 
00002014 
00002015 
00002016 


PATNOD 


LPRTNI 


ARBP 


PROC 
PUSH 
BRANCH 


PROC 
PUSH 
BRANCH 


PROC 
PUSH 
BRANCH 


PROC 
PUSH 
RCALL 
POP 
MOVD 
VEQLC 
VEQLC 
VEQLC 
LOCSP 
SPCINT 
ACOMPC 
DEQL 
MOVA 
BRANCH 


ARBNO (P) 


PROC 

RCALL 
VEQLC 
VEQLC 
LOCSP 


. CPYPAT 


BRANCH 


SOURCE LISTING 


ANY 
NayYCcCL 
CHARZ 


ANY 

SPNCCL 

CHARCL 
XPTR,ARGVAL, , FAIL 
(ZCL, YCL) 

XPTR,S, ,PATNOD 
XPTR,E,, PATNOD 
XPTR,I-7NTRI 
XPTR,GNVARI, XPTR 


XPTR,NULVCL, »NONAME 


TPTR, BLOCK, LNODSZ | 


NOTANY (S) 
Save function descriptor 


SPAN (S) 
Save function descriptor 
Save minimum length of one 


Evaluate argument 


Restore descriptor and length 
STRING is acceptable argument 
So is EXPRESSION 

INTEGER must be converted 


ZPTR, TPTR, ZCL, ZEROCL, YCL, XPTR 


RTZPTR 


ANY 
LNTHCL 
LPRTND 


ANY 
POSTICL 
LPRTND 


ANY 
RPSICL 
LPRTND 


ANY 
RTBCL 
LPRTND 


ANY 

TBCL 

XPTR, ARGVAL, , FAIL 
YcL 

ZCL, ZEROCL 


' XPTR,1I¢,LPRINI 


XPTR,E,,PATNOD 
XPTR,S,INTR1 
2SP,XPTR 
XPTR,ZSP,INTR1 
XPTR,0,¢,/,LENERR 
YCL, LNTHCL, PATNOD 
ZCL, XPTR 

PATNOD 


tA 

XPTR, PATVAL, , FAIL 
XPTR,P, »ARBP 
XPTR,S,INTR1 

TSP, XPTR 

TMVAL, TSP 

TPTR, BLOCK, LNODSZ 


Construct the pattern 


LEN (N) 
Save function descriptor 


POS (N) 
Save function descriptor 


RPOS (N) 
Save function descriptor 


RTAB(N) 
Save function descriptor 


TAB (N) 

Save function ‘descriptor 

Evaluate argument 

Restore function descriptor 

Predict minimum length of zero 

If INTEGER check for LEN 

EXPRESSION is acceptable 

STRING must be converted to INTEGER 

Get specifier 

Convert to INTEGER 
E3.6.1 

: E3.6.1 

If so, use value of integer 

Go form pattern 


= 


ARBNO (P) 

Evaluate argument as pattern 
PATTERN is desired form 

STRING must be made into PATTERN 
Get specifier 

Get length of string 

Allocate block for argument 


XPTR,TPTR, TMVAL, ZEROCL, CHRCL, XPTR 


XSIZ,XPTR 

TSIZ, XSIZ,ARBSIZ 
TSIZ,P 

TPTR, BLOCK, TSIZ 
ZPTR, TPTR 

TSIZ, ARHEAD 


Get size of pattern 

Add additional space for ARBNO node 
Insert PATTERN data type 

Allocate block for pattern 

Save pointer to return 

Set up copy for heading node 


TPTR,ARHEAD, ZEROCL, ZEROCL, ZEROCL, TSIZ2 


ZSIZ,XSIZ,TSIZ 


TPTR,XPTR, ZEROCL, TSIZ,ZS12Z, XSIZ 


TSIZ,NODSIZ, NODSIZ 


Set up size for trailing node 


TPTR, ARTAIL, ZEROCL, Z2S1Z, ZEROCL, TSIZ 


Z2S12Z,TSIZ,2ZS1Z 


Set up size for backup node 


TPTR,ARBACK, ZEROCL, ZSIZ, TSIZ,TSIZ 


RTZPTR 
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060002017 
C0002018 
00002019 
00002020 
00002021 
00002022 
00002023 
00092024 
00002025 
00002026 
00002027 
0c00c2028 
00002029 
00002030 


00002932 
00002033 
00002034 
00002035 
00002036 
00002937 
00002038 
00002939 
00002040 
00002941 
00002042 
00002043 
00002044. 
00002045 
00002046 
000020457 
00002048 
00002049 
00002050 
00002951 
00002052 
00002053 
00002054 
00902055 
00002055 
00002057 
00002058 


°00002059 


00c02c60 
00002061 


00002063 
00002064 
00002065 
00002066 
00002057 
00002068 
00002069 
06002070 
00002071 
00002072 
00002073 
00002074 
00002075 
00002076 
00002077 
00002078 
00002079 
00062080 
00002081 
00002082 
00002083 
00002084 
00002085 
00002086 
00002087 
00002088 
00002089 
00002090 
00002091 
00002092 


* 

* 

* ax 

* 

ATOP PROC ° ax 
INCRA OCICL, DESCR Increment interpreter offset 
GETD YPTR,OCBSCL,OCICL Get object code descriptor 
TESTF ¥PTR, FNC,ATOP1 Test for function descriptor - 
RCALL YPTR, INVOKE, YPTR, (FAIL, ATOP1,J 
VEQLC YPTR, E, NEMO Only EXPRESSION can be value 

ATOP1 RCALL TPTR, BLOCK, LNODSZ Allocate pattern node 
MAKNOD ZPTR,TPTR,ZEROCL,ZEROCL,ATOPCL,YPTR 
BRANCH RTZPTR 

* 

*x 

* Value Assignment Operators 

* 

NAM PROC . : x .Y ; 
PUSH ENMECL Save function descriptor 
BRANCH NAM5 Join processing 

* F 

DOL PROC NAM x $Y 
PUSH ENMICL Save function descritpo 

NAM5 RCALL XPTR, PATVAL, , FAIL Get pattern for first argument 
INCRA OCICL, DESCR Increment offset 
GETD YPTR,OCBSCL,OCICL Get object code descriptor 
TESTF YPTR, FNC, ,NAMC2 Check for function 

NAM3 VEQLC XPTR,S,,NAMV Is first argument STRING? 
VEQLC XPTR,P,INTR1,NAMP Is it PATTERN? 

* f ' 

NAMC2 PUSH XPTR Save first argument’ 
RCALL YPTR, INVOKE, YPTR, (FAIL, NAM4,) 

* —— , Evaluate second argument 
VEOLC YPTR, E, NEMO Verify EXPRESSION 

NAM4 POP XPTR ; Restore first argument 
BRANCH NAM3 Join processing 

*x 

NAMV LOcSP TSP,XPTR Get specifier 
GETLG TMVAL, TSP Get length 
RCALL TPTR, BLOCK, LNODSZ Allocate block for pattern 
MAKNOD XPTR,TPTR,TMVAL, ZEROCL,CHRCL,XPTR 

* . Make pattern node 

NAMP RCALL TPTR, BLOCK, SNODSZ Allocate block for pattern 
MAKNOD WPTR,TPTR, ZEROCL, ZEROCL,NMECL 

* Make node for naming 
RCALL TPTR, BLOCK, LNODSZ Allocate block for pattern 
POP TVAL Restore function descriptor 
MAKNOD YPTR,TPTR.ZEROCL,ZEROCL,TVAL, YPTR 7 

* _ Make pattern for backup 
GETSIZ xXSIZ,XPTR “Get size of first pattern 
SUM Y¥STZ,XS1Z,NODSIZ Compute total size 
GETSIZ TSIZ,YPTR Get size of naming node 
SUM Z2SIZ,YSIZ,TSIZ Compute total 
SETVC Z2SIZ,P Insert PATTERN data type 
RCALL TPTR, BLOCK, ZSIZ Allocate block for total pattern 
MOVD Z2PTR,TPTR Save copy 
LVALUE TVAL,XPTR ° Get least value 
CPYPAT TPTR,WPTR, TVAL, ZEROCL, NODSIZ,NODSIZ 

* Copy three patterns 
CPYPAT TPTR,XPTR, ZEROCL,NODSIZ,YSIZ,XSIZ 
CPYPAT TPTR,YPTR,ZEROCL, YSIZ,ZEROCL,TSIZ 
BRANCH 


SOURCE LISTING 


RTZPTR Return pattern as value 


Binary Alternation Operator 


> X1Y 

XPTR, PATVAL, , FAIL Get first argument 

XPTR Save first argument 
YPTR, PATVAL,, FAIL Get second argument 
XPTR Restore first argument 
DTCL,XPTR Get first data type 
DTCL,YPTR Insert second data type 


DTCL, VVDTP, , ORVV _Is it STRING-STRING? 
DICL,VPDTP, ,ORVP Is it STRING-PATTERN? 
DTCL, PVDTP, ,ORPV Is it PATTERN-STRING? 
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* 00002093 


00002094 
00002095 
00002096 
00002097 
00002098 
00002099 
00002100 
00002101 
00002102 
00002103 
00002104 
00002105 
00002106 
00002107 
00002108 
00002199 
00002110 
00002111 
00002112 
00002113 
00002174 
00002115 
00002116 
00002117 
00002118 
00002119 
00002120 
00002121 
00002122 


00002123 


00002124 
00002125 
00002126 
00002127 
00002128 
00002129 
00002130 


— 00002131 


00002132 
00002133 
00002134 
00002135 
00002136 
00002137 
00002138 
00002139 
00002140 
00002141 
00002142 
0002143 
00002144 
00002145 
00002146 
00002147 
00002148 
00002149 
00002150 
00002151 
00002152 
00002153 
00002154 
00002155 
00002156 
00002157 
00002158 
00002159 
00002160 
00002161 
00002162 
00002163 
00002164 
00002165 
00002166 
00092167 
00002168 
00002169 
00002170 


o/ 


SCAN 


SCANIP 
+ 
SCANRV 


ae 
SCANRP 


* 


SOURCE LISTING 


DEQL DTCL, PPDTP, INTR1,ORPP 


Is it PATTERN_PATTERN? 


LocsP XSP,XPTR Get specifier 
GETLG TMVAL, XSP Get length 


RCALL TPTR, BLOCK, LNODSZ Get block for pattern 


MAKNOD XPTR, TPTR, TMVAL, ZEROCL, CHRCL,XPTR 

Construct pattern 
LocsP YSP,YPTR Get specifier 
GETLG TMVAL,YSP Get length 


RCALL TPTR, BLOCK, LNODSZ Get block for pattern 


MAKNOD YPTR,TPTR, TMVAL, ZEROCL,CHRCL,YPTR 
Construct pattern 

GETSIZ XSIZ,XPTR 

GETSIZ YSIZ,YPTR 

SUM TSIZ,XSIZ,¥SIZ 

SETVC TSIZ,P 


Compute total size 


. 


MOVD ZPTR, TPTR ; Save copy 
CPYPAT TPTR, XPTR, ZEROCL, ZEROCL, ZEROCL, XSIZ 
Copy first pattern 
CPYPAT TPTR, YPTR, ZEROCL, XSIZ,ZEROCL, YSIZ 
: Copy second pattern 
LINKOR ZPTR,XSIZ Link alternatives 
BRANCH RTZPTR 


LOCSP XSP, XPTR Get specifier 
GETLG TMVAL, XSP Get Length 


RCALL TPTR, BLOCK, LNODSZ Get block for pattern 


MAKNOD XPTR,TPTR,TMVAL, ZEROCL,CHRCL,XPTR 
Construct pattern 


BRANCH ORPP Join processing 


TITLE ‘Pattern Matching Procedures’ 
Simple Pattern Matching 


PROC 7 Pattern Matching 
RCALL XPTR, ARGVAL, , FAIL Get subject 
PUSH XPTR Save subject 
RCALL YPTR, PATVAL, , FAIL Get pattern 
Restore subject 


INCRA SCNCL, 1 


DEQL DTCL,RVDTP,,SCANRV Is it REAL-STRING? 
DEQL DTCL,RPDTP,,SCANRP Is it REAL-PATTERN? 
DEQL DTCL,IPDTP, INTR1,SCANIP 


Is it INTEGER-PATTERN? 


LocSP XSP, XPTR 
LOCSP YSP,YPTR 
SUBSP TSP,YSP,XSP, FAIL Get part to compare 
LEXCMP TSP,YSP,,RETNUL Compare strings 
AEQLC ANCCL,0, FAIL Check &ANCHOR 
FSHRTN XSP,1 
BRANCH SCANVB Try again 


RCALL XPTR, GNVART, XPTR Generate variable for integer 


BRANCH SCANVV Join processing 


LocsP XSP,XPTR 
RCALL 7 SCNR,, (FAIL, , FAIL) Call scanner 
RCALL eNMD,. (FAIL, RTN2) Perform naming 


RCALL XPTR, GNVARI, XPTR Generate variable for integer 


BRANCH SCANVP Join processing 


REALST XSP,XPTR 
RCALL XPTR,GENVAR, XSPPTR, SCANVV 


REALST XSP,XPTR 


RCALL XPTR, GENVAR, XSPPTR, SCANVP 
Generate variable 
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Get size of first pattern 
Get size of second pattern 


Insert PATTERN data type 
RCALL TPTR, BLOCK, TSIZ Allocate block for pattern 


Return pattern as value 


Set up data type pair 


Increment count of scanner entries 
DEOL -DTCL,VVDTP,,SCANVV Is it STRING-STRING? 
DEOL DTCL,VPDTP, » SCANVP Is it STRING~PATTERN? 

DEQL DTCL,IVDTP, » SCANIV Is it INTEGER-STRING? 


Get specifier for subject 
Get specifier for’ pattern 


Delete lead character 


Get specifier for subject 


Convert REAL to STRING 


Convert REAL to STRING 


60002171 
00902172 
00002173 
00002174 
00002175 
00002176 
00002177 
00002178 
00002179 
00002180 
00002181 
00002182 
00002183 
000021384 
00002185 
00002186 
00002187 
00002188 
00002189 
00002199 
00002191 
00002192 
00002193 
00002194 
00002195 
00002196 
00002197 
00002198 
00002199. 
00902200 
00002201 
00002202 
00002203 
00002204 
00002205 
00002206 
00002207 


00002208 


00002209 
00002210 
00002211 


00002212 


00002213 
090002214 
00002215 
00002216 
00002217 
00002218 
00002219 
00002220 
00002221 
00002222 
00002223 
00002224 
00002225 
06002226 
00002227 
00002228 
00002229 
00002230 
00002231 
00002232 
00002233 
00002234 
00002235 
00002236 
00002237 
00002238 
00002239 
00002240 
00002241 
00002242 
00002243 
00002244 
00002245 
€00022486 
00002247 
00002248 


aes 
SISRIA 
SJSR1B 


* 


SJSRC1 
* 
* 


SJISSVP 


*_ : 
SISSIP 
aga 
SJSSIV 


oe 
SJSSRV 


* 
* 
SJSSRP 


SISS1 


SJSS1A 


SJSSDT 


SOURCE LISTING 


Pattern Matching with Replacement 


RCALL 
BRANCH 


RCALL 
BRANCH 


REALST 
RCALL 


REALST 
RCALL 


AEQLC 
ADDLG 
FSHRTN 
BRANCH 


LOCSP 
LOCSP 
SETSP 
SETLC 
SUBSP 
LEXCMP 


SETAC 
REMSP 


- Oo Pattern matching with replacement 
OCICL, DESCR Increment offset 
WPTR,OCBSCL,OCICL Get object code descriptor 
WPTR,FNC,,SJSRC1 Check for function 
INSW,0,,SJSRIA Check &INPUT 
ZPTR, INATL,WPTR,SJSRIA oe 

Look of input association 
ZPTR, ZPTR,; DESCR Get association 
XPTR, PUTIN, (ZPTR,WPTR) , (FAIL, SJSR1B) 
Perform input 


. 


XPTR,WPTR, DESCR Get value 


_ (WPTR, XPTR) : Save name and value 
YPTR, PATVAL, , FAIL Get pattern 
XPTR Restore value 
DTCL,XPTR - & Set up data type pair 
DTCL, YPTR 
SCNCL, 1 Increment count of scanner calls 


DTCL,VVDTP,,SJSSVV Is it STRING-PATTERN? 
DTCL,VPDTP,,SJSSVP Is it INTEGER~STRING? 
DTCL,IVDTP,,SJSSIV Is it INTEGER-PATTERN? 
DTCL,RVDTP,,SJSSRV Is it REAL-~STRING? 
DTCL,RPDTP,,SJSSRP Is it REAL~PATTERN? 
DTCL, LPDTP, INTR1,SISSIP 


WPTR, INVOKE, (WPIR) , (FAIL, SJSR1,NEMO? 
Evaluate subject 


. 


XSP,XPTR Get specifier 


7 SCNR,,(FAIL,,FAIL) Call scanner 

NAMGCL, 1 Set naming switch 
TAILLSP,XSP,TXSP Get tail of subject 

SJSS1 Join common processing 
XPTR,GNVARI, XPTR Generate STRING from INTEGER 
SJSSVP Join common processing 

XPTR, GNVARI, XPTR Generate STRING from INTEGER 
SISSVV Join common processing 
XSP,XPTR Convert REAL to STRING 


XPTR, GENVAR, XSPPTR, SJSSVV 
; Generate variable 


XSP, XPTR ~~ Convert REAL to STRING 
XPTR,GENVAR, XSPPTR,SJSSVP ~~ 
Generate variable 


ANCCL, 0, FAIL Check &ANCHOR ; 
HEADSP,ONECL Increment length of head 
XSP,1 Delete head character 
SJISSV2 . Join common processing 
XSP, XPTR Get specifier for subject 
YSP, YPTR Get specifier for pattern 
HEADSP, XSP Set up head specifier 
HEADSP, 0 Initialize zero length 


TSP, YSP,XSP, FAIL Get common length 
TSP, YSP, SIVVON, , SJVVON 
Compare strings 


NAMGCL, 0 Clear naming switch 
TAILSP,XSP,TSP Get tail of subject 
(TAILSP, HEADSP) Save head and tail 
NAMGCL,0,,SJSS1A Check naming switch 
aNMD,, FATL Perform naming 
2PTR,ARGVAL, , FAIL Get object 

(HEADSP, TAILSP) Restore head and tail 
WPTR Restore name of subject 
HEADSP ,0,SJSSDT Check for null head 
TAILSP, 0, ,SJSRV1 Check for null tail 
ZPTR,S,,SJSRV Is object STRING? 
ZPTR, P, «SJSRP Is object PATTERN? 
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00002249 
00002250 
00002251 
00002252 
00002253 
00002254 
00002255 
00002256 
00002257 
00002258 
00002259 
00002260 
00002261 
00002262 
00002263 
00002264 
00002265 
00002266 
00002267 
00002268 
00002269 
00002270 
00002271 
00092272 
00002273 
00002274 
00002275 
00002276 
00002277 
00002278 


~ 00002279 


00002280 
00002281 
00002282 
00002283 
00002284 
00002285 
00002286 


“00002287 


00002288 
00002289 
00002290 
€0002291 
00002292 
00002293 
00002294 
00002295 
00002296 
00002297 
00002298 
00002299 
00002300 
00002301 
00002302 
00002303 
00002304 
00002305 
00002306 
00002307 
00002308 
00002309 
00002310 
00902311 
00002312 
00002313 
00002314 
00002315 
00002316 
00002317 
00002318 
00002319 
00002320 
00002321 
00002322 
00002323 
00002324 
00002325 
00002326 


SISRP 


GETLG 
RCALL. 


*“MAXNOD 


GETSIZ 


- GETSIZ 


SISRV1 


GETSIZ 
SUM 
SUM 
SETVC 
RCALL 
MOVD 
LVALUE 
CPYPAT 


LVALUE 
SUM 

CPYPAT 
CPYPAT 


MOVD 
BRANCH 


INTSPC 
BRANCH 


REALST 
BRANCH 


Basic Scanning Procedure 


PROC 


ZPTR,L,,SJSRI 
ZPTR,R,, SJSRR 
ZPTR,E,INTR1 
TPTR, BLOCK, STARSZ 


SOURCE LISTING 


Is object INTEGER? 

Is object REAL? 

Is object EXPRESSION? 
Allocate block for pattern 


TPTR,STRPAT,STARSZ Set up pattern for expression 


TPTR, 4*DESCR, ZPTR 


ZPTR,TPTR 


XSP, HEADSP 


Insert object 
Set up converted value 
Copy specifier 


XPTR,GENVAR, (XSPPTR) 


TMVAL, HEADSP 
TPTR, BLOCK, LNODSZ 


Generate variable for head 
Get length of head 
Allocate block for pattern 


XPTR, TPTR, TMVAL, ZEROCL, CHRCL, XPTR 


YSP, TALLSP 


Make pattern node 
Set up tail specifier 


YPTR, GENVAR, (YSPPTR) 


TMVAL, TAILSP 


Generate variable for tail 
Get length of tail 


TPTR, BLOCK, LNODSZ . Allocate block for pattern 
YPTR,TPTR,TMVAL, ZEROCL, CHRCL, YPTR 


XSIZ,XPTR 


ZSIZ,ZPTR 


TSIZ,XSIZ,2S1Z 
TSIZ,TSIZ,YSiI2Z 


TSIZ,P 


TPTR, BLOCK, TSIZ 


VVAL, TPTR 
TVAL, ZPTR 


Make pattern node 

Get size of head node 

Get size of tail node 

Get size of object 

Compute total size 

Get size of new pattern 

Insert PATTERN data type 
Allocate block for total pattern 
Get working copy 

Get least value of replacement 


TPTR, XPTR, TVAL, ZEROCL, XSI2Z, XSIZ 


TVAL, YPTR 


TSIZ,XSIZ,2ZS12Z 


Copy in head 
Get Least value of tail 
Get size of first two 


TPTR, ZPTR, TVAL, XSIZ,TSI2Z, 2812 


Copy in object 


TPTR, YPTR, ZEROCL, TSIZ, ZEROCL, YSIZ 


ZPTR,VVAL 
SJSRV1 


ZSP, ZPTR 


XPTR, TAILSP 
YPTR,HEADSP 


ZPTR,ZSP 


XPTR,XPTR,YPTR 
XPTR,XPTR,ZPTR 
XPTR,MLENCL, INTR8 


Copy in tail 
Set up return value 
Join common processing 


Get length of tail 
Get length of tail 
Get length of object 
Compute total length 


Check 6&MAXLNGTH 


ZPTR,CONVAR, (XPTR) Allocate storage for string 


TSP,ZPTR 
TSP,0 


TSP, HEADSP 


TSP, Z2SP 


TSP, TAILSP 
ZPTR,GNVARS, XPTR 
WPTR, DESCR, ZPTR 
OUTSW,0, ,SJSRV2 


Get specifier 

Clear length 

Append head 

Append object 

Append tail 

Enter string into storage 
Assign value to subject name 
Check &S0UTPUT 


YPTR, OUTATL, WPTR, SUSRV2 


YPTR,YPTR, DESCR 


Look for output association 
Get output association 


»PUTOUT, (YPTR,ZPTR) Perform output 
TRAPCL, 0,,RTN3,RTN3 Check &TRACE 
ATPTR, TVALL, WPTR, RTN3 


Look for VALUE trace 


»TRPHND, ATPTR, RTN3 

Perform trace 
Z2SP,ZPTR Convert INTEGER 
SJSRS 
2SP,Z2PTR Convert REAL 
SJISRS 


Scanning procedure 
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E3.3.1 


00002327 
00002328 
00002329 
00002330 © 
00002331 
00002332 
00002333 
00002334 
00002335 
00002336 
00002337 
00002338 
00002339 
00002340 
00002341 
00002342 
00002343 
00002344 
00002345 
00002346 
00002347 
00002348 
90002349 
00002350 


~ 90002351 


00002352 
00902353 
00002354 
00002355 
00002356 
00002357 
00002358 
00002359 
00002360 
00002361 
00002362 
00002363 
00002364 
00002365 
00002366 
00002367 
00002368: 
00002369 
000023706 
00002371 
00002372 
00002373 
00002374 
00002375 
00002376 
00002377 
00002378 
00002379 
00002380 
00002381 
00002382 
00002383 
00002384 
00002385 
00002386 
00002387 
00002388 
00002389 
00002390 


00002392 
00002393 
00002394 
00002395 
00002396 
00002397 
00002398 
00002399 
00002400 
00002401 
00002462 
00002403 
00002408 


SCNR1 


GETLG 
LVALUE 
AEQLC 
ACOMP 
SETSP 
SETLC 
MOVD 
MOVD 
AEQLC 
AEQLC 
MOVD 
BRANCH 


SUBTRT 
SUM 
PUSH 
SETSP 
INCRA 
ACOMP 


SETAC 
PUTDC 
GETLG 
PUTDC 


PUTDC 
BRANCH 


INCRA 
ACOMP 


SETLC 
PUTDC 
GETLG 
PUTDC 


purpe 
BRANCH 


PROC 
MOVD 
SETAC 


PUTDC 


AEQLC 
CHKVAL 


BRANIC 


PROC 
SETAC 
BRANCH 


PROC 
GETDC 


GETpDC 
GETDC 
DECRA 
MOVD 

AEQLC 


SQURCE LISTING 


MAXLEN, XSP 
¥SIZ,YPTR 
FULLCL,0,SCNR1 
YSIZ,MAXLEN, FAIL 
TXSP, XSP 

TXSP,0 

PDLPTR, PDLHED 
NAMICL, NHEDCL 
ANCCL, 0, SCNR3 
FULLCL, 0, ,SCNR4 
YSIZ,MAXLEN 
SCNR5 


YSIZ,MAXLEN, YSIZ 
YSIZ,YSIZ, CHARCL 
(YPTR, YSIZ) 
READSP,TXSP 


_ PDLPTR, 3*#DESCR 
PDLPTR, PDLEND, INTR31 


LENFCL, 1 


Get maximum length 

Get least value 

Check &FULLSCAN 

CHeck maximum against minimum 

Set up working specifier for head 
zero length 

Initialize history list 
Initialize name list 


‘Check &ANCHOR 


Check &FULLSCAN 
Set up length | 
Join processing 


Get difference of lengths 
Add one 

Save pattern and length 

Set up head specifier 

Make room for history entry 


Check for overflow 
Set length failure 


PDLPTR, DESCR, SCONCL Insert scan function 


TMVAL, TXSP 


Get cursor position 


PDLPTR, 2*DESCR, TMVAL 


Insert on history ‘list 


PDLPTR, 3*DESCR, LENFCL 


SCIN1 


PDLPTR, 3*DESCR 


PDLPTR, PDLEND, INTR31 


HEADSP,0 


Insert length failure 
Join common scanning 


Make room for history entry 


Check for overflow 
zero length of head 


PDLPTR, DESCR,SCFLCL Insert scan failure function 


TMVAL, TXSP 


Get cursor position 


PDLPTR, 2*DESCR, TMVAL 


Insert on history list 


PDLPTR, 3*DESCR, LENFCL 


SCIN1 


SCNR 

PATBCL, YPTR 
PATICL,0 

LENFCL, 1 

PATICL, DESCR F 
Z2CL, PATBCL, PATICL 
PATICL, DESCR 


XCL, PATBCL, PATICL 


Insert length failure 
' Join common scanning 


Set up pattern base pointer 
zero offset 

Set length failure 
Increment offset 

Get function descriptor 
Increment offset 

Get. then-or descriptor 


PATICL, DESCR Increment offset 
YCL, PATBCL, PATICL Get value-residual descriptor 
PDLPTR, 3*DESCR _ Make room for history entry 
PDLPTR, POLEND, INTR31 

Check for overflow 
PDLPTR, DESCR, XCL Insert then-or descriptor 
TMVAL,TXSP | Get cursor position 
TMVAL, YCL _ Insert residual 
PDLPTR, 2*DESCR, TMVAL 


Insert on history list 


PDLPTR, 3*DESCR, LENFCL 


Insert length failure 


FULLCL, 0,SCING Check &FULLSCAN 
MAXLEN,YCL, TXSP, SALT1 

Check values 
ZCL, 0 Branch to procedure 
SCNR Nonlength failure procedure 
LENFCL, 0 Clear length failure 
SALT2 Join common processing 
SCNR Length failure procedure 
LENFCL, PDLPTR,3*DESCR 

Get length failure from history 
XCL, PDLPTR, DESCR Get then-or descriptor 
YCL, PDLPTR, 2*DESCR Get value-residual 
PDLPTR, 3*DESCR Back over history entry 
PATICL, XCL Set offset to OR link 
PATICL,0,,SALT3 Check for none 
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00002405 
00002406 
00002407 
00002498 
00002409 
00002410 
00002411 
00002412 
00002413 
00002414 
00002415 
00002416 
00002417 
00002418 
00002419 
00002420 
00002421 
00002422 
00002423 
00002424 
00002425 
00002426 
00002427 
00002428 
00002429 


“00002430 


00002431 
00002432 
00002433 
00002434 
00002435 
00002436 
00002437 
00002438 
00002439 


00002440 


00002841 
00002442 
00C02443 
00002444 


00002445 


00002446 
00002447 
00002448 
CO002489 
00002450 
00002451 
00002452 
00002453 


000024854. 


00002455 
00002456 
00002457 
00002858 
00002459 
00002460 
00002461 
00002462 
00002463 
00002464 
00002465 
00002466 
00002467 
00002468 
00002469 
00002470 
00002471 
00002472 
00002473 
00002474 
00002475 
00002476 
00002477 
00002478 
00002479 
00002480 
00002481 
00002482 


c*) 


TXSP,YCL Insert old length of hea 

PATICL,FNC,SCIN3 Check for function 

PATICL, 0 Branch to procedure 

LENFCL,9,SALT1 Check length failure 

SALF 1 Go to nonlength failure 

SCNR Successful scanning procedure 

PATICL, XCL Set offset from THEN Link 

PATICL,0,SCIN2,RTN2 Check for none 

SCNR 

FULLCL,0,SCON1 Check &FULLSCAN 

LENFCL,0, FAIL Check length failure 

(YSIZ,YPTR) Restore save descriptors 

Y¥SIZ,1 . Decrement possible count 

YSIZ,0,,FAIL,INTR13 CHeck for end 

TXSP,ONECL Increment length of head 

SCNR2 Continue 

SCNR Backout procedure 

PATBCL, YPTR Reset pattern base 

SALT3 Join processing 
Pe enema HE 

ANY, BREAK, NOTANY, SPAN 

; Matching procedure for ANY (S) 

SCL, 1 Post entry 

PATICL, DESCR Increment offset 

XPTR,PATBCL, PATICL Get argument 

sch Save processor switch 

XPTR,S,,ABNSV -  ~—£E3.5.5 

XPTR,E,,ABNSE EXPRESSION must be evaluated 

XPTR,1I,,ABNSI - E3.5.6 

ScL : E3.5.6 

SCDTER : E£3.5.6 

E3.9.6 
XPTR, EXPVAL, XPTR, (ABNSF,ABNS1) E3.5.5 
— E£3.5.5 
sch. E3.5.5 
TSALF E3.5.5 
E3.5.5 
XPTR,GNVARI,XPTR 
SCL Restore procedure switch 


ANYC3 


ANYC& 


POP 


CLERTB 
LOCSP 
PLUGTB 
MOVD 
MOVD 
SETSP 
AEQLC 
PUTLG 
LCOMP 
CHKVAL 
ADDLG 
REMSP 
STREAM 
GETLG 
ADDLG 
BRANCH 


PROC 
SETAC 
BRANCH 


DEQL 
AEQL 


CLERTB 
LOCSP 


SOURCE LISTING 


XPTR,O, -SCNAME E3.5-5 
SCL, (, BRKV,NNYV, SPNV) 


Select processor 
XPTR, TBLCS, ANYC2 Was last argument the same? 
TBLFNC, ANYCCL, ,ANYC3- - 

If so, was last procedure for ANY(S) 
SNABTB, ERROR If not, clear stream table 
YSP,XPTR 
SNABTB, STOP, YSP Plug entries for characters 
TBLCS,XPTR Save argument to check next time 
TBLFNC,ANYCCL Save procedure to check next time 
VSP, XSP ; Set up working specifier 
FULLCL,0,ANYC4 Leave length alone in FULLSCAN mode 
VSP, MAXLEN Else insert maximum length 
VSP, TXSP,,,TSALT Length failure if too short 
MAXLEN, ZEROCL, XSP, ,ANYC4, ANYC4 E3.5.7 
VSP,ONECL E3.5.7 
YSP,VSP,TXSP Get specifier to unscanned portion 
ZSP,YSP, SNABTB, TSALF, TSALT 
XPTR,ZSP Get length accepted 
TXSP,XPTR Add to length matched 
SCOK,SCNR Return to success point 
ANYC Matching procedure for BREAK (S) 
SCL, 2 Post entry 
ABNS 
XPTR, TBLCS, BRKC2 Was last argument the same? 
TBLFNC, BRKCCL, ,ANYC3 

Was the last procedure for BREAK 
SNABTB, CONTIN If not, clear stream table 
YSP,XPTR 
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0002483 
00002484 
00002485 
00002486 
00002487 
00002488 | 
00002489 
00002490 
00002491 
00002492 
00002493 
00002494 
00002495 
00002496 
00002497 
00002498 
09002499 
00002500 
00002501 
00002502. 
00002503 
00002508 
00002505 
00002506 
00002507 
00002508 
00002509 
00002510 
00002511 
00002512 
06202513 
00002514 
00002515 


(0002518 


00092521 
00002522 


00002523 
00002524 
00002525 
00002526 
00002527 
00002528 
00002529 
00002530 
00002531 
00002532 
00002533 
00002534 
00002535 
00002536 


00002537 
00002538 
00002539 
00002540 
00002541 
000025482 
000025483 
00002544 
00002545 
00902546 
00002547 
00002548 
00002549 
09002550 
00002551 


einen ee 


LPRRT1 


* 
LPRRTE 


* 


* 
LPRRTV 


LPRRTI 


* 


ee 
POSII 


PLUGTB 
MOVD 
MOVD 
BRANCH 


PROC 
SETAC 
BRANCH 


DEQL 
AEQL 


CLERTB 
LOCSP 
PLUGTB 
MOVD 
MOVD 
BRANCH 


PROC ° 
SETAC 
BRANCH 


SOURCE LISTING 


SNABTB,STOPSH,YSP Plug entries for characters 
TBLCS,XPTR Save argument to check next time 
TBLFNC, BRKCCL Save procedure to check next time 
ANYC3 Proceed 
ANYC Matching procedure for NOTANY (S) 
SCL, 3 Post entry 
ABNS 
XPTR, TBLCS, NNYC2 Was last argument the same? 
TBLFNC, NNYCCL, , ANYC3 

Was the last procedure for NOTANY? 
SNABTB, STOP If not, clear stream table 
YSP,XPTR 
SNABTB, ERROR, YSP Plug entries for characters 
TBLCS, XPTR Save argument to check next time 
TBLFNC,NNYCCL Save procedure to check next time 
ANYC3 Proceed 
ANYC ; Matching procedure for SPAN (S) 
SCL,4 Post entry 
ABNS 
XPTR, TBLCS, SPNC2 Was last argument the same? 
TBLFNC,SPNCCL, ,SPNC3 

Was the last procedure for SPAN? 
SNABTSB, STOPSH If not, clear stream table 
YSP,XPTR 
SNABTB, CONTIN, YSP Plug entries for characters 
TBLCS, XPTR Save argument to check next time 
TBLFNC, SPNCCL Save procedure to check next time 


XSP,TXS?, , TSALT, ISALT 

Length failure if too short » 
YSP,XSP,TXSP . Get specifier to unscanned portion 
ZSP,YSP, SNABTB, TSALF , 


ZSP,0,,TSALF Failure if length accepted is zero 


' XPTR,ZSP Get length of accepted portion 
FULLCL,0,SPNC5 Skip length check in FULLSCAN mode 
MAXLEN,XPTR, TXSP,TSALT 
TXSP,XPTR Add length accepted 


SCOK,SCNR 


LEN, POS, RPOS, RTAB, TAB 


PROC 
SETAC 
INCRA 
GETD 
PUSH 


VEQLC 
VEQLC 


RCALL 
POP 
BRANCH 


LOCSP 
SPCINT 
POP 
SELBRA 


ACOMPC 
CHKVAL 


ADDLG 
BRANCH 


ACOMPC 
GETLG 
ACOMP 
ACOMP 


’ Matching procedure for LEN(N) 
SCL, 1 7 Note entry 
PATICL, DESCR Increment offset 


XPTR, PATSCL, PATIC 
SCL Se 


Get argument 
Save entry indicator 


XPTR,I,,LPRRTI Is it INTEGER? 


XPTR,E,,LPRRTE Is it EXPRESSION? 

XPTR,S,,LPRRTV E3.5.6 

SCL E3.5.6 

SCDTER E3.5.6 
Is it STRING? 

XPTR, EXPVAL, XPTR, (, LPRRT1) E3.2.1 

SCL E3.2.1 

TSALF E3.2.1 

E3.2.1 

Evaluate EXPRESSION 

ZSP,XPTR Get specifier 

XPTR, ZSP,SCDTER Convert to INTEGER 


SCL Restore entry indicator 
SCL, (POSIT, RPSII,RTBI, TBI) 

Select matching procedure 
XPTR,0O,,,SCLENR Check for negative length 
MAXLEN, XPTR, TXSP, TSALT 

Compare with maximum length 


TXSP,XPTR Add to length matched 
SCOK,SCNR Return successful match 
XPTR»Oe¢-SCLENR Check for negative position 
NVAL, TXSP Get cursor position 
XPTR,MAXLEN, TSALT Check desired against maximum 
XPTR,NVAL,TSALF, TSCOK 
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00002552 
00002553 
00002554 
00002555 
00002556 
00002557 
00002558 
00002559 
00002560 
00002561 
00002562 
00002563 
00002564 
00002565 
00002566 
00002567 
00002568 
00002569 
00002579 
00002571 
00002572 
09002573 
00002574 
00002575 
00002576 
00002577 
00002578 
00002579 
00002580 


' 00002581 


90002582 
00002583 
00002584 
00902585 
00002586 
00002587 
00002588 
00002589 
€0002590 
00002591 
00002592 
00002593 
00002594 
00002595 
00002596 
00002597 
00002598 
00002599 
00602600 
00002601 
00002602 
00002603 
00002604 
00002605 


= 


00002607 


000026C9 
00002619 
00002611 
00002612 
00002613 
00002614 
00002615 
00002616 
00002617 
00002618 
00002619 
00002620 
00002621 
00002622 
00002623 
00002624 


ry 


JS 2 


Cc 


SOURCE LISTING 


Ceck against cursor position 


BRANCH SALT,SCNR 
* 
RPSII ACOMPC XPTR,0,,,SCLENR Check for negative position 
GETLG NVAL, XSP Get total length 
SUBTRT TVAL,NVAL,XPTR Find desired position 
GETLG NVAL, TXSP Get cursor position 
ACOMP NVAL, TVAL, TSALT, TSCOK, TSALF 
* Compare two positions 
* 
RTBI ACOMPC XPTR,0,,,SCLENR Check for negative length 
GETLG NVAL, XSP Get total length 
SUBTRT TVAL,NVAL,XPTR Find desired position 
GETLG NVAL, TXSP Get current position 
ACOMP NVAL, TVAL, TSALT. Compare two positions 
AEQLC FULLCL,0,RTBITI Check &FULLSCAN 
SETAV NVAL, YCL Get residual ; 
SUBTRT NVAL,MAXLEN, NVAL Find maximum allowed position 
ACOMP, NVAL, TVAL, ,/TSALT Compare with desired position 
RTBII PUTLG TXSP,TVAL Update length of string matched 
BRANCH SCOK,SCNR 
* ‘ 
TBI ACOMPC XPTR,0,,,SCLENR Check for negative length 
GETLG NVAL, TXSP Get cursor position 
ACOMP NVAL, XPTR, TSALT Check against desired position 
ACOMP XPTR,MAXLEN, TSALT Check for tab beyond end 
PUTLG TXSP,XPTR Update length of string matched 
BRANCH SCOK,SCNR 
* 
POSIT PROC LNTH Matching procedure for POS(N) 
SETAC SCL, 2 Note entry 
BRANCH LPRRT Join common processing 
‘ 
RPST PROC LNTH Matching procedure for RPOS (N) 
SETAC SCL,3 Note entry 
BRANCH LPRRT Join common processing 
* : 
RTB PROC LNTH Matching procedure for RTAB({N) 
SETAC SCL, 4 Note entry 
BRANCH LPRRT Join common processing 
* 
TB PROC LNTH Matching procedure for TAB (N) 
SETAC SCL,5 Note entry 
BRANCH LPRRT Join common processing 
* 
a 
* 
* ARBNO 
* ‘ 
ARBN PROC e Matching for ARBNO (P) 
GETLG TMVAL, TXSP Get cursor position 
PUSH TMVAL Save cursor position 
BRANCH SCOK,SCNR Return matching successfully 
* é 
ARBF PROC ARBN Backup matching for ARBNO(P) 
POP (TMVAL) Restore cursor position 
BRANCH ONAR2 Join common processing 
* 
EARB PROC ARBN 
POP (TMVAL) Restore cursor position 
PUTDC PDLPTR,DESCR,TMVAL Insert on history list 
GETLG TMVAL, TXSP Get cursor position 
PUTDC PDLPTR,2*DESCR, TMVAL 
potTpe PDLPTR, 3*DESCR, ZEROCL 
BRANCH SCOK,SCNR Return matching successfully 
* 
ONAR PROC ARBN 
AEQLC FULLCL, 0, TSCOK Check &FULLSCAN 
MOVD TVAL, ZEROCL 
GETAC TVAL, PDLPTR,-2*DESCR : 
* Get old cursor position 
GETLG TMVAL, TXSP Get current cursor position 
ACOMP TVAL, TMVAL, TSCOK, , TSCOK 
* Compare positions 
ONAR1 PUSH TVAL Save cursor position 
DECRA PDLPTR, 6*DESCR Delete history entries 
ONAR2 AEQLC LENFCL, 0, TSALT Check length failure 
BRANCH SALF,SCNR Return matching failure 


alee i ae 


00002625 
00002626 
00002627 
00002628 © 
00002629 
00002630 
00002631 
00002632 
00002633 
00002634 
00092635 
00002636 
00002637 
00002638 
00002639 
00002640 
00002641 
00002642 
00002643 
00002644 
000026485 
00002646 
00002647 
00002648 
00002649 
00092650 
00002651 
00002652 
00002653 
00002654 
00002655 
00002656 
00902657 
00002658 
00002659 
00002660 
00002661 
00002662 


— 60002663 


00002664 
00002665 
00002666 
00002667 
00002668 
00002669 
00002670 
09002671 
00002672 
00002673 
00002674 
00002675 
00002676 
00002677 
000C2678 
000026793 
06002680 
00002681 
00002682 
00092683 
00002684 
00092685 
00002686 
00002687 
00002688 
00002689 
00002690 
00002691 
00002692 
00002693 
00002694 
00002695 
00002696 
000026937 
00002698 
00002699 
00002700 
00002701 
00002702 


SOURCE _ LISTING 


+ : 00002703 
ONRF PROC ARBN 00002704 % 
MOVD TVAL, ZEROCL 00002705 , ‘ 
GETAC TVAL, PDLPTR,-2*DESCR 00002706 o> } 
* Get old cursor position €0002707 
BRANCH ONAR1 Join processing 00002708 
x 00002709 
FARB PROC P. 4 . 00002710 
AEQLC FULLCL, 0, ,FARB2 Check &FULLSCAN 00002711 
SETAC NVAL,O : Set residual length to 0 00002712 
BRANCH FARB3 Join processing 00002713 
+ ; 00902714 
FARB2 AEQLC LENFCL, 0, FARB1 Check for length failure 00002715 
SETAV NVAL, YCL Get residual length 00002716 
FARB3 GETLG TVAL, TXSP Get cursor position 00002717 
SUM TVAL, TVAL, NVAL “Add them 00002718 
ACOMP TVAL, MAXLEN, FARB1,FARB1 00002719 
* ; Check against maximum 00002720 
ADDLG ‘ TXSP,ONECL Add one for ARB 00002721 
GETLG TVAL, TXSP Get length matched 00902722 
PUTAC PDLPTR,2*DESCR,TVAL Insert on history list 00002723 
BRANCH: SCOK,SCNR Return successful match 00002724 
* 00002725 
FARB? DECRA PDLPTR, 3*DESCR Back over history entry 00002726 
BRANCH SALT,SCNR 00002727 
+ , . 00002728 
a te we) 
* 00002730 
* ax ' , 00002731 
* . ; 00002732 
ATP PROC ‘ 7 Matching procedure for ax 00002733 
INCRA PATICL, DESCR : Increment pattern offset 00002734 
GETD XPTR,PATBCL,PATICL Get argument 00002735 
ATP1 VEQLC  XPTR,E, ,ATPEXN EXPRESSION must be evaluated 00002736 
GETLG NVAL, TXSP Get length of text matched 00002737 
SETVC NVAL,I Set INTEGER data type 00002738 
PUTDC XPTR, DESCR, NVAL Assign as value of variable X 00002739. 
AEQLC OUTSW,0, ,ATP2 Check GOUTPUT . ‘ 00002740 
LOCAPV ZPTR,OUTATL, XPTR,ATP2 0000902741 
* Look for output association 00002742 
GETDC ZPTR,ZPTR, DESCR Get output association descriptor 00002743 
RCALL ePUTOUT, (ZPTR,NVAL) Perform output 90002744 
ATP2 AEQLC TRAPCL, 0, ,TSCOK Check &TRACE 00002745 
LOCAPT ATPTR, TVALL, XPTR,TSCOK 00002746 
* Look for trace association 00002747 
PUSH (PATBCL, PATICL,WPTR,XCL, YCL) 00002748 
PUSH (MAXLEN, LENFCL, PDLPTR, PDLHED, NAMICL, NHEDCL) . 00002749 
SPUSH (HEADSP, TSP, TXSP,XSP) 00002750 
MOVD PDLHED,PDLPTR | Set new stack heading 00002751 
MOVD NHEDCL, NAMICT, ~. Set. new name list heading 00002752 
RCALL 2 TRPHND,ATPTR 3.3.1 
* Perform tracing 00002754 
SPOP (XSP,TXSP,TSP,HEADSP) 00002755 
POP (NHEDCL, NAMICL, PDLHED, PDLPTR, LENFCL, MAXLEN) 00002756 
POP (YCL,XCL,WPTR, PATICL, PATBCL) 00002757 
BRANCH SCOK,SCNR 00002758 
* 00002759 
ATPEXN RCALL XPTR, EXPEVL, XPTR, (TSALF, ATP1, SCNEMO) E3.4%.4 
+ 00002761 
a nena (10002762 
* 00002763 
* BAL 00002764 
* , 00002765 
BAL PROC ’ Matching procedure for BAL 00002766 
BALF1 AEQLC FULLCL,0,, BALF4 Check &FULLSCAN 00002767 
SETAC NVAL,9O Set length to zero 00002768 
BRANCH BALF2 00002769 
*_ i 00002770 
BALF4 SETAV NVAL, YCL 00002771 
BALF2 GETLG MTVAL,TXSP Get length of text matched so far 00002772 
SUM TVAL, TVAL, NVAL Add remainder possible 00002773 
ACOMP TVAL, MAXLEN, BAL1, BAL1 00002774 
* Compare to maximum 00002775 
SUBTRT TVAL,MAXLEN, TVAL Get maximum length for BAL 00002776 
GETBAL TXSP,TVAL,BAL1 Get balanced string 00002777 
GETLG TVAL, TXSP Get length matched 00002778 
PUTAC PDLPTR, 2*DESCR,TVAL Insert history entry 00002779 
BRANCH SCOK,SCNR Successful match 00002780 
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ry pe 


SOURCE LISTING 


PDLPTR, 3*DESCR Back over history entry 

PDLPTR, PDLHED, TSALF, TSALF, INTR13 

BAL : | Matching procedure for BAL retry 
FULLCL, 0, , BALF3 Check GFULLSCAN 

NVAL,0 If off, set Length to zero 

BALF2 Reenter balanced matching 


LENFCL,(,BAL1,BALF1 If on, test for length failure 


Matching for String 


PROC 
INCRA 
GETD 
LOCSP 
REMSP 
SUBSP 
LEXCMP 


GETLG 


. ADDLG 


en 
STARP 


Aor 
STARP1 
STARP4 


STARP6 


* 


STARP2 
* 


*- 
STARPS 
* 


STARP3 


* 


BRANCH 


POP 


AEQLC 
BRANCH 


.LENFCL,0,TSALT 


> Matching character string 
PATICL, DESCR Increment offset 
YPTR,PATBCL,PATICL Get argument 


TSP, YPTR - Get specifier 
VSP,XSP,TXSP Remove part matched 
VSP, TSP, VSP,TSALT Get part to match 


VSP, TSP, TSALF, , TSALF 
Compare strings 


YPTR,TSP Get length 

TXSP,YPTR Update string matched 

SCOK, SCNR Return successful match 
re 

CHR Matching procedure for expressions 

PATICL, DESCR Increment offset 


YPTR, PATBCL,PATICL Get argument expression 
YPTR, EXPVAL, YPTR, TSALF 
Evaluate argument 


YPTR, E, , STAR2 Is is EXPRESSION? 
XPTR,PATBCL,PATICL Compute pointer to argument 
XPTR,7*DESCR,YPTR Insert pointer in backup node 
YPTR,S,-CHR1 Is it STRING? 

YPTR,P,,STARP Ys it PATTERN? 

YPTR,1I,SCDTER © Is it INTEGER? 

TSP, YPTR Get specifier for integer 
CHR2 Join processing 


FULLCL,C, ,STARP1 Check &FULLSCAN 


NVAL,0 zero length 

STARP4 Join processing 
NVAL,YCL - ae! _ .Get length 

NVAL, MAXLEN, NVAL Compute residual 
NVAL,0O,,,TSALT : 

TSIZ,YPTR Check &FULLSCAN 
FULLCL, 0, STARP6 

TSIZ,NVAL,TSALT Check against length 
PDLPTR, 3*DESCR Make room for history 
PDLPTR, PDLEND, INTR31 


Check for overflow 
PDLPTR,DESCR,SCFLCL Insert failure function 
TMVAL, TXSP Get cursor position 
PDLPTR, 2*DESCR, TMVAL 

Insert on history list 
PDLPTR, 3*DESCR, LENFCL 

Insert length failure 
(MAXLEN, PATBCL, PATICL,XCL,YCL) 

Save scanner state 
MAXLEN, NVAL Set up new maximum 
-SCIN,, (STARPS, , RTNUL3) 

Call the scanner 
(YCL, XCL, PATICL, PATBCL, MAXLEN) 

Restore scanner state 
SCOK,SCNR Return matching successfully 
(YCL,XCL, PATICL, PATBCL, MAXLEN) 
Restore scanner state 
Check length failure 


SALF,SCNR Return matching failure 
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40592781 
0002782 
00002783 
00002784 
00002785 
00002786 
00002787 
00002788 
00002789 
00002790 
00002791 
00002792 
00002793 
00002794 
00002795 
00002796 
00002797 
00092798 
00002799 
00002800 
00002801 
00002802 
00002803 
00002804 
00002805 
00002806 
00002807 
00002808 
00002809 
00002810 
00002811 
00002812 
00002813 
00002814 
00002815 
00002816 
00002817 
00002818 
00002819 
00002820 
00002821 
00002822 
00002823 
00002824 
00002825 
00002826 
00002827 


* 90002828 


00002829 
00002839 
00002831 
00002832 
00002833 
00002834 
00002835 
00002836 
00002837 
00002838 
00002839 
00002840 
00002841 
00002842 
00002843 
00002844 
00002845 
00002846 
00002847 
00002848 
00002849 
00002850 
00002851 
00002852 
00002853 
00002854 
00002855 
00002856 
00002857 
00002858 


SOURCE _ LISTING 


DSAR PROC CHR Backup matching for expression 00002859 
INCRA PATICL,DESCR Increment offset . 00002860 
GETD YPTR,PATBCL,PATICL Get argument 00002861 * 

VEQLC YPTR,S,,STARP3 Is it STRING? 00002862 ~~ ae 

VEQLC YPTR, P, » DSARP Is it PATTERN? 00002863 sy 
VEQLC YPTR, I, SCDTER, STARP3 00002864 
* Is it INTEGER? ; 00002865 
+ ie 00002866 
DSARP AEQLC FULLCL,0,,DSARP1 Check &FULLSCAN 00002867 
SETAC NVAL,0O zero length 00002868 
BRANCH DSARP2 , Join processing 00002869 
* 00002870 
DSARP1 SETAV NVAL, YCL Get length 00002871 
DSARP2 SUBTRT NVAL,MAXLEN, NVAL Compute residual 00002872 
PUSH (MAXLEN, PATBCL, PATICL, XCL,YCL) 00002873 
* Save scanner state 00002874 
MOVD MAXLEN, NVAL ~ Set up new maximum 00002875 
RCALL eUNSC,, (STARP5,STARP2, RTNUL 3) 00002876 
* ; Call unscanning procedure 00002877 
+ at 00002878 
re ee 00002879 
* 4 00002880 
* FENCE . 00002881 
* 00002882 
FNCE PROC ‘g Procedure for matching FENCE 00002883 
INCRA PDLPTR, 3*DESCR Create new history entry 00002884 
ACOMP PDLPTR, PDLEND, INTR31 . 00062885 
= Check for overflow 00002886 
PUTDC PDLPTR, DESCR,FNCFCL Insert FENCE failure function 00002887 
GETLG TMVAL, TXSP Get length 00002888 
PUTDC PDLPTR, 2*DESCR, TMVAL ; * 00002889 
* Save length 00002890 
PUTDC PDLPTR, 3*DESCR, LENFCL —_ 00002891 
* ‘ Save length siture switch 00002892 
SETAC LENFCL, 1 Set length failure switch 00002893 
BRANIC. SCOKCL,0 Return matching 00002894 
al : 00002895 
center 00002896 
* er 00002897 

* X .- Yand X $Y 00002898 y 
* 00002899 
’ NME PROC e Matching erpseduve for naming 00002900 
INCRA PDLPTR, 3*DESCR Make room for history entry (0002901 
ACOMP PDLPTR, PDLEND, INTR31 00002902 
* Check for end of list 00002903 
PUTDC PDLPTR, DESCR,FNMECL Insert backup function 00002904 
GETLG TMVAL, TXSP Get cursor position 00002905 
PUTDC PDLPTR, 2*DESCR, TMVAL - 00002906 
* Put on history list 00002907 
PUTDC PDLPTR, 3*DESCR, LENFCL 00002908 
* +Put length failure indicator 00002909 
PUSH (TMVAL) Save cursor 00002910 
SETAC LENFCL, 1 Set length failure indicator 009002911 
BRANCH SCOK,SCNR Return matching successfully 00002912 
+ 00002913 
FNME PROC NME Backup procedure for naming 00002914 
POP {TVAL) Restore cursor 00002915 
FNME1 AEQLC PENP SHC, TSALT, TSALF 00002916 
* Check length failure indicator 00002917 
* 00002918 
ENME PROC NME Naming process for X . Y 00002919 
INCRA PATICL, DESCR Increment offset 00002920 
GETD YPTR,PATBCL,PATICL Get argument 00002921 
POP (NVAL) Restore previous cursor position 00002922 
SETVA YCL, NVAL Set up length 00002923 
SETSP ‘TSP,TXSP Copy specifier 00002924 
PUTLG TSP, NVAL Insert length 00002925 
REMSP TSP, TXSP,TSP Compute ramainder C0002926 
SUM TPTR,NBSPTR,NAMICL Compute position on name list 00002927 
PUTSPC ‘TPTR,DESCR,TSP Insert specifier 00002928 
PUTDC. TPTR, DESCR*+SPEC,YPTR 00002929 
= Insert argument 00002930 
INCRA NAMICL, DESCR+tSPEC Increment list offset 00002931 
ACOMP NAMICL, NMOVER, INTR13, ENME1 00002932 
* ' Check for overflow 00002933 
ENME2 INCRA PDLPTR, DESCR*#*SPEC Make room on history list 00002934 
ACOMP PDLPTR, PDLEND, INTR31 00002935 
* Check for overflow 00002936 
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ENME3 


RCALL 
ENMI4& ACOMPC 


LOCAPT 
PUSH 


PUSH 
SPUSH 


MOVD 
MOVD 
RCALL 


POP 
INCRA 
ACOMP 


PUTDC 
BRANCH 


* 
ENMIC SPCINT 
: 


SOURCE LISTING 


PDLPTR,DESCR,DNMECL Insert unravelling function 
TMVAL, TXSP Get cursor position 
TMVAL, YCL 
PDLPTR, 2*DESCR, TMVAL 
Insert on list 
PDLPTR, 3*DESCR, LENFCL 
Insert length failure 


LENFCL, 1 Set length failure 
SCOK,SCNR Return matching successfully 
WCL, NMOVER Save copy of cuurent name List end 


NMOVER, NAMLSZ*SPDR Increment for larger block 


TPTR, BLOCK, NMOVER Allocate larger block 

TPTR, NBSPTR, WCL Move in old block 

NBSPTR, TPTR Set up new base pointer 

ENME2 , Rejoin processing 

NME Unravelling procedure for naming 
NAMICL, DESCR+SPEC Back off named string 


TPTR,NBSPTR,NAMICL Compute current position 
NME 


VVAL, GENVAR, (TSPPTR) _ 

Generate variable 
YPTR, DESCR, VVAL Perform assignment 
OUTSW,0, , ENMI4 Check 6GOUTPUT 
ZPTR, OUTATL, YPTR,ENMI4 

Look for output association 
ZPTR,ZPTR, DESCR Get association 
,PUTOUT, (ZPTR,VVAL) Perform output 
TRAPCL, 0, ,ENMI2, ENMI2 

Check &TRACE 
ATPTR, TVALL, YPTR, ENMI2 

Look for VALUE trace 
(PATBCL, PATICL,WPTR, XCL, YCL) 

fi -- Save relevant descriptors 

(MAXLEN, LENFCL, PDLPTR, PDLHED, NAMICL,NHEDCL) 
(HEADSP, TSP, TXSP, XSP) 

Save relevant specifiers 


PDLHED, PDLPTR Set up new history list head 
NHEDCL, NAMICL Set up new name list head 
, TRPHND, ATPTR 


: Perform trace 
(XSP,TXSP,TSP, HEADSP) 
Restore specifiers 


(NHEDCL, NAMICL, PDLHED, PDLPTR, LENFCL, MAXLEN) 


Restore descriptors 
(YCL,XCL,WPTR, PATICL, PATBCL) 
PDLPTR, 3*DESCR Make room on history list 
PDLPTR, PDLEND, INTR31 

Check for overflow 
PDLPTR, DESCR,DNMICL Insert unravelling function 
ENME3 Join common processing 


VVAL, TSP, SCDTER, ENMI3 
Convert STRING to INTEGER 


ZEROCL E3.4.4 & 
YPTR, EXPEVL, YPTR, (TSALF, » SCNEMO) E3.4.4 & 
ZEROCL E3.4.4 & 
ENMI5 E3.4.4% 6 
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E3.3. 1 


E3.5.8 
E3.5.8 
E3.5.8 
£3.5.8 


VVAL, YCL 
(VVAL) Preserve length 
FNME1 
NME Matching for Xx $ Y¥ 
PATICL, DESCR Increment offset 
YPTR,PATBCL,PATICL Get argument 
(NVAL) Restore initial length 
- YCL,NVAL Move initial length into value field 
TSP, TXSE Get working specifier 
TSP, NVAL Insert length 
TSP, TXSP, TSP Get specifier for part matched 
ZCL, TSP . Get length of part 
ZCL,MLENCL, SCLNOR Check &MAXLNGTH 
YPTR,E, -ENMEXN Is it EXPRESSION? 
YPTR, Ke, -« ENMIC Check for KEYWORD data type 


~ 


00002937 

00002938 

00002939 

00602940 

00002941 

00002942 
00002943 
00002944 

00002945 
00002946 
000029487 
00002948: 
00002949 
00002950 

00002951 

00902952 
00002953 
00002954 
00002955 
00002956 

00002957 
00002958 
00002959 
00002960 
00002961 

00002962 
00002963 
00002964 
00002965 
00002966 
00022967 
00002968 
00002969 
00002970 
00002971 

00002972 
00002973 
00002974" 
00002975 
00002976 
00002977 
00002978 
00002979 
00002980 
00002981 
00002982 
00002983 
00002984 
00002985 
00002986 
00002987 
00002988 
00002989 
00002990 
00002991 
00002992 


00002994 
00002995 
00002996 
00002997 
00002998 
00002999 
00003000 
00003001 
00003002 
00003003 
00003004 
00003005 
00003006 
00003007 
00003008 


00003011 
00003012 


DEFINE 


‘DEFIN3 


DEFIN4S 


* 


* 


7. 
DEF IN6 


* 


DEF IN 
DEFINS 


* 


DEF 11 


SQURCE_ LISTING 


SUCCEED 
PROC 7 : Matching procedure for SUCCEED 
INCRA PDLPTR, 3*DESCR Make room for history entry 
ACOMP PDLPTR, PDLEND, INTR31 
Check for overflow 
PUTDC PDLPTR,DESCR,SUCFCL Insert SUCCESS backup function 
GETLG TMVAL, TXSP Get length matched 
PUTDC PDLPTR, 2*DESCR,TMVAL 
: Save on history list 
PUTDC PDLPTR, 3*DESCR, LENFCL ; 
Save current length failure 
SETAC LENFCL, 1 Set length failure 
BRANIC SCOKCL,0 Return successful match 
PROC SUCE : SUCCEED failure 
GETDC XCL, PDLPTR, DESCR Get history entries 
GETDC ' YCL, PDLPTR, 2*DESCR 
BRANCH SUCE1 Go in front door 
Ai esheets nn ne nee neces nenaimcnnenrerrenions HE 
TITLE ‘Defined Functions* 
DEF INE(P,E) 
PROC e DEFINE (P,E) 
RCALL XPTR,VARVAL, , FAIL Get prototype 
PUSH XPTR et, Save prototype 
RCALL YPTR, VARVAL, , FAL!, Get entry point 
POP XPTR © Restore prototype 
LOCSP XSP,XPTR Specifier for prototype 
STREAM YSP,XSP,VARATB,PROTER,PROTER 
Break out function name 
AEQLC STYPE, LPTYP, PROTER Verify open parenthesis 
RCALL XPTR, GENVAR, (YSPPTR) , 
Get variable for function name 
RCALL ZCL, FINDEX, (XPTR) Get function descriptor for function 
DEQL YPTR,NULVCL,DEFIN3 Check for omitted entry point 
MOVD YPTR,XPTR If omitted use function name 
PUSH YPTR Save entry point 
MOVD YCL, ZEROCL | Set argument count to 0. 
PUSH XPTR Save function name 
FSHRTN XSP,1 Remove break character 
STREAM YSP,XSP, VARATB,PROTER, PROTER 
Break out argument 
SELBRA STYPE, (PROTER,,DEFIN6) 
os Check for end 
LEQLC YSP,0,,DEFII'S Check for null argument 
RCALL XPTR,GENVAR, (YSPPTR) .. : 
Generate variable for argument 
PUSH XPTR Save argument 
INCRA YCL,1 Increment argument count 
BRANCH DEFING Continue 
LEQLC YSP,0,,DEFINI j 
INCRA YcL,1 Increment argument count 
RCALL XPTR,GENVAR, (YSPPTR) 
Generate variable for argument 
PUSH 4PTR Save argument 
SETVA DEFCL,YCL 
FSHRTN XSP,1 
STREAM YSP,XSP,VARATB, PROTER,DEF 10 
Break out local arguments 
AEQLC STYPE, CMATYP, PROTER Verify comma 
LEQLC YSP,0,,DEFINS Check for null argument 
RCALL XPTR,GENVAR, (YSPPTR) 
Generate variable 
PUSH XPTR Save local argument 
INCRA YCL,1 Increment total count. 
BRANCH DEFINS Continue 
LEQLC YSP,0, ,DEF11 Check for null argument 
RCALL XPTR,GENVAR, YSPPTR Generate variable 
PUSH XPTR Save argument 
INCRA YCL, 1 Increment total count 
INCRA Y¥CL,2 Increment for name and label 
MULTC XCL,YCL, DESCR Convert to address units 
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00003013 
00003014 
00003015 
00003016 
00003017 
00003018 
00003019 
00003020 
00003021 
00003022 
00003023 
00003024 
00003025 
00003026 
00003027 
00003028 
00003029 
00003030 
09003031 
00003032 
00003033 
00003034 
00003035 
00003036 
00003037 


00003038 


00003039 
00003040 
00003041 


000030482 


00003043 
00003044 
00003045 
00003046 
00003047 
00003048 
00003049 
00003050 
00003051 
00003052 
00003053 
00003054 
00003055 
00003056 
00003057 


00003058 


00003059 
00003060 
00003061 
00003062 
00003063 
00003064 
00003065 
00003066 
00003067~ 
00003068 
00003069 
00003070 
00003071 
00003072 
00003073 
00003074 
00003075 
00003076 
00003077 
00003078 
00003079 
00003080 
00003081 
00003082 
00003083 
00003084 
00003085 
00003086 
00003087 
00003088 
00003089 
00003090 


e 


DEF 12 


DEFFNC 


DEFFS8 


DEFF10 


Lie 
DEFFGO 


SttTVvc 
RCALL 
PUuTDC 
PUTDC 
SUM 

DECRA 


' POP 


PUTDC 
DECRA 
AEQLC 


PROC 
SETAV 
MOVD 
MOVD 
PSTACK 
PUSH 
INCRA 
GETD 
TESTF 
AEQLC 
LOCAPV 


GETDC 
PUSH 
RCALL 


POP 
BRANCH 


GETDC 
PUSH 
DECRA 
ACOMPC 
GETDC 
SETAV 
ACOMP 
PUSH 
INCRA 
BRANCH 


ACOMPC 


SOURCE LISTING 


XCL,B 

XPTR, BLOCK, XCL 
ZCL, 0,DEFCL 

ZCL, DESCR, XPTR 
XPTR, XPTR,XCL 
XPTR, DESCR 

YPTR - 
XPTR, DESCR, YPTR 
YCL,1 

YCL, 0, DEF12, RETNUL 


XCL, INCL 

WCL, XCL 

YCL, INCL 

YPTR 

NULVCL 

OCICL, DESCR 
XPTR,OCBSCL, OCICL 
XPTR, FNC, ,DEFFC 
INSW,0,,DEFF14 


Insert block data type 
Allocate block for definition 
Point to procedure descriptor 
Insert definition block 


‘Compute end of block 


Decrement pointer 

Restore argument 

Insert in definition block 
Decrement total count 
Check for end 


Invocation of Defined Function 


_ Procedure to invoke defined function 
Get number of arguments in call 


Save copy 
Save function descriptor 
Post stack position 


Save null value for function name 


Increment offset 

Get object code descriptor 
Check for function descriptor 
Check &INPOT 


ZPTR, INATL, XPTR, DEFF 14 


ZPTR,7PTR,DESCR 
(XCL,WCL,YCL,YPTR) 


Look for input association 
Get association 
Save relevant descriptors 


XPTR, PUTIN, (2PTR,XPTR) , FAIL 


(YPTR, YCL, WCL, XCL) 
DEFF3 


XPTR, XPTR, DESCR 
XPTR 

XCL, 1 
XCL,0,DEFF1,,INTR10 
XCL, YCL, 0 

XCL, XCL 

WCL, XCL, DEFF9, DEFF5 
NULVCL 

WCL, 1 

DEFF4 


ZCL 
WCL,1 
DEFFY 


ZCL,YCL, DESCR 
XPTR,ZCL 
WCL, ZCL 
WPTR,2ZCL,WCL 
XCL,1 

XPTR, DESCR 
YPTR,DESCR 

ZPTR, XPTR, DESCR 
TPTR, ZPTR,DESCR 
ATPTR, YPTR, DESCR 
ZPTR, DESCR, ATPTR 
YPTR, DESCR, TPTR 
XCL, 1 

XCL, 0, DEFF8, , INTR10 
XPTR, DESCR 
XPTR,WPTR, » DEFFGO 
ZPTR,XPTR, DESCR 
TPTR, ZPTR, DESCR 
TPTR 

ZPTR, DESCR, NULVCL 
DEFF10 


XCL, Z2CL, DESCR 


XCL, ATTRIB, 0, ,-UNDFFE 


OCBSCL, XCL,ATTRIB 


Pexformn input 
Restore descriptors 
Join processing 


Get value 

Save value 

Decrement argument count 
Check for end 


Get expected number of arguments. 


Insert in A-field 

Compare given and expected 
Not enough, save null string 
Increment count 

continue 


Throw away extra argument 
Decrement count 
Continue 


Get definition block 

Save copy 

Get size of block 

Compute pointer to end 
Increment for function name 
Increment pointer to block 
Adjust stack pointer 

Get argument name 

Get current argument value 
Get value from stack 
Assign to argument name 
put current argument on stack 
Decrement count 

Check for end 

Increment pointer to block 


Get argument name from block 
Get current value of argument 
Save current value 

Assign null value to local 
Continue 


| (FRTNCL, STNOCL, OCICL, OCBSCL, ZCL, 2CL) 


Save system state 
Get entry label 


TRACL,0,,DEFF18, DEFF18 


Check 6FTRACE 
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07003091 
G0003092 
00003093 
00003094 
00003095 
00003096 
06003097 
00003098 
00003099 
06003100 
c0003101 
00003102 
00003103 
00003104 
06003105 
00003106 
00003107 
00003108 
00003109 
00003110 
00003111 
00003112 
00003113 
00003114 
00003115 
00003116 
00003117 
00003118 
000031193 
00003120 
00003121 
00003122 
00003123 
00003124 
000031725 


§ §0003126 


00003127 
00003128 
00003129 
00003130 
00003131 
00003132 
00003133 
00003134 
00003135 
00003136 
00003137 
00003138 
00003139 
00003140 
00003741 
00003142 
00003143 
60003744 
00003745 . 


~00003 146 


00003147 
00003148 
00003149 
00003150 
00003151 
00003152 
00003153 
00003154 
00003155 
00003156 
00003157 
00003158 
00003159 
00003160 
00003161 


00003162 


00003163 
00003164 


00003167 
00003168 


* 


DEFF18 
* 


* 
DEFF1I9 
* 
* 


* 
DEFFI15 


* 


DEFFS1 


* 


* 


DEFF20 
* 


* 


DEFFS2 


* 


* 


* 


DEFF 17 
* 


DEFF6 


DECRA 
GETDC 
PUSH 

RCALL 


POP 
ACOMPC 


GETDC 
LOCAPT 


PUSH 
RCALL 


PoP 
INCRA 
ACOMPC 


LOCAPT 
RCALL 


SETAC - 
RCALL 


MOVD 
POP 
ACOMPC 


DECRA 
GETDC 
PUSH 

RCALL 


POP 


ACOMPC 


GETDC 
LOCAPT 


PUSH 
RCALL 


POP 
DECRA 
ACOMPC 


LOCAPT 


PUSH 
RCALL 


POP 
POP 


GETSIZ 
DECRA 
ACOMPC 


SOURCE LISTING 


TRACL, 1 
ATPTR, ZCL, 2*DESCR 
Z2CL 


Decrement &FTRACE 
Get function name : 
Save definition block 


eFENTR2, (ATPTR) , (INTR10,INTR10) 


ZCL 


Perform function trace 
Restore definition block 


TRAPCL,O, ,DEFF19,DEFF19 


ATPTR, ZCL, 2*DESCR 


Check &TRACE 
Get function name 


ATPTR, TFENTL,ATPTR, DEFF19 


(OCBSCL, ZCL) 
, TRPHND, ATPTR 


(ZCL, OCBSCL) 
LVLCL, 1 


Check for CALL trace 


Save object code base and block 
E3.3.1 


Perform trace 
Restore base and block 
Increment &FNCLEVEL 


TRAPCL,0,,DEFF15,DEFF15 


Check &TRACE 


PIP TR eA RE ie FNCLKY, DEFF15 


e TRPHND, ATPTR 


OCICL,0 


Look for KEYWORD trace 

E3.3.1 
Perform trace 
zero offset 


e INTERP,, (DEFFF, DEFFNR) 


RETPCL, RETCL 
ZCL 


Call interpreter 
Set &RTNTYPE to RETURN 
Restore definition Hegck 


TRACL,0, , DEFF20,DEFF20 


TRACL, 1 
ATPTR, ZCL, 2*DESCR 
Z2CL: 


Check &FTRACE : 
Decrement &FTRACE 
Get function name 
Save definition block 


e FNEXT2, a i ae id INTR10) 


ZCL 


Perform function trace 
Restore definition block 


TRAPCL,0,,DEFFS2,DEFFS2 


ATPTR, ZCL, 2*DESCR 


Check &TRACE © 
Get function name 


ATPTR, TFEXTL,ATPTR, DEFFS2 


(RETPCL, ZCL) 
,» TRPHND, ATPTR 


(ZCL,RETPCL) 
LVLCL, 1 


Check for RETURN trace 
Save return and block 
E3. 3.1 
Perform trace 
Restore block and return 
Decrement 6FNCLEVEL 


TRAPCL,9,,DEFF17,DEFF17 


Check &TRACE 


ATPTR, TKEYL, FNCLKY, DEFF17 


(RETPCL, ZCx) 
eTRPHND, ATPTR ~ 


(ZCL,RETPCL) 


Check for KEYWORD trace 

Save return and block 
ota, af E3.3.1 

Perform trace 

Restore block and return 


(ZCL,OCBSCL, OCICL,STNOCL, FRTNCL) 


Restore system state 


WCL, ZCL Get size of definition block 
WCL, DESCR Decrement pointer 
WCL,0,, INTR10, INTR1I0 

: 7 Check for end 
WPTR, ZCL,WCL Compute pointer to last descriptor 
YPTR,ZCL Save pointer to block 
YPTR,DESCR Increment pointer 
ZPTR,YPTR,DESCR Get function name 
ZPTR,ZPTR, DESCR Get value to be returned 
XPTR Get old value 
YPTR, WPTR, DESCR Get argument name 
YPTR, DESCR, XPTR Restore old value 
WPTR, DESCR Decrement pointer 
WPTR,ZCL, DEFF6 Check for end 
RETPCL, FRETCL,,FAIL Check for FRETURN 
RETPCL, NRETCL, RTZPTR 

Check for NRETURN 

XPTR,ZPTR Move name to correct descriptor 
XPTR,S, , DEF FVX Check for natural variable 
XPTR,I, ,GENVIX Convert integer 
XPTR,N, »~RTXNAM Check for created variable 
XPTR, K, NONAME, RTXNAM 


~ 4 


Check for keyword variable 


00003169 
90003170 
00003171 
00003172 
00003173 
00003174 
00003175 
00003176 
00003177 
00003178 
00003179 
00003180 


00903182 
00003183 
00003184 
00003185 
00003186 
00003187 
00003188 


00003190 
00003191 
00003192 
00003193 
00003194 
00003195 
00003196 
0003197 
00003198 
00003199 
00003200 
00003201 
00003202 
00003203 
00003204 
00003205 
00003206 
00003207 
00003208 
00003209 


00003211 
00003212 
00003213 
00003214 
00003215 
00003216 
00003217 
00003218 


00003220 
00003221 
00003222 
00003223 
00003228 
00003225 
00003226 
00003227 


00003228. 


00003229 
00003230 
00003231 
00003232 
00003233 
00003234 
00003235 
00003236 
00003237 
00003238 
00003239 
00003240 
00003241 
00003242 
00003243 


_ 00003244 


00003245 
00003246 


SOURCE LISTING 


DEFFVX AEQLC XPTR,0,RTXNAM, NONAME 
* 


Check for null string 
* 


DEFFF MOVD RETPCL, FRETCL Set up FRETURN 


BRANCH DEFFS1 Join processing 

* 

DEFFC PUSH (XCL,WCL,YCL,YPTR) Save relevant descriptors 
RCALL XPTR, INVOKE, (XPTR) » (FALL, DEFFN) 

* Evaluate argument 
POP (YPTR,YCL,WCL,XCL) Restore relevant variables 
BRANCH DEFF3 Join processing 

* 

DEFFN. POP (YPTR, YCL,WCL, XCL) Restore relevant variables 
BRANCH DEFF2 Join processing 

* 

DEFFNR MOVD - RET PCL, NRETCL . Set up NRETURN 
BRANCH DEFFS1 Join processing 


nn vn UNTO 


TITLE ‘External Functions' 


* LOAD (?) 
x 
LOAD PROC e LOAD (P) 
RCALL XPTR,VARVAL, «FAIL Get prototype 
PUSH XPTR Save prototype 
RCALL WPTR,VARVAL, « FAIL Get Library name 
LOCSP VSP, WPTR Get specifier for library 
POP XPTR Restore prototypr 
LOcSP XSP,XPTR Get specifier for prototype 
STREAM YSP,XSP,VARATB, PROTER,PROTER 
* Get function name from prototype 


AEQLC STYPE,LPTYP,PROTER Verify left parenthesis 
RCALL XPTR,GENVAR,YSPPTR Generate variable for function 


RCALL 2ZCL, FINDEX, XPTR Find function 
MOVD YCL, ZEROCL Set argument count to zero 
LOAD4 FSHRTN XSP,1 Remove break character 


STREAM ZSP,XSP,VARATB,LOAD1,PROTER 


_* Break out argument © 


SELBRA STYPE, (PROTER, , LOAD6) 


_* Branch on break type 


RCALL XPTR,GENVAR,ZSPPTR Generate variable for data type 
LOCAPV XPTR,DTATL,XPTR, LOADI 


. * Look up data type 
GETDC XPTR,XPTR,DESCR Extract data type code 
PUSH XPTR Save data type code 
LOAD10 INCRA YCL, 1 : Increment count of arguments 
BRANCH LOADS continue 
* ; 
LOAD6 INCRA YCL,1 Count last argument 


RCALL XPTR, GENVAR,ZSPPTR Generate variable for data type 
LOCAPV XPTR,DTATL, XPTR, LOAD11 ; 


* Look up data type 
GETDC XPTR,XPTR, DESCR Get data type code 
PUSH XPTR Save data type code 
LOAD13 FSHRTN XSP,1 Delete right parenthesis 


RCALL XPTR,GENVAR,XSPPTR Generate variable for target 
LOCAPV XPTR, pINtie XPTR, LOAD? 


* Look up data type 
GETDC XPTR, XPTR, DESCR Get data type code 
PUSH XPTR Save data type code 
LOAD8 SETVA LODCL, YCL - Insert number of arguments 
INCRA YCL,1 Increment count 
MULTC XCL,YCL,DESCR Convert to address units 
INCRA XCL, DESCR Add space for entry point 
SETVC XCL,B Insert BLOCK data type 
RCALL XPTR, BLOCK, XCL Allocate block for definition 
PuTDC ZCL,0,LODCL Insert procedure descriptor 
PUuTDC ZCL, DESCR,XPTR Insert definition block 
SUM XPTR, XPTR, XCL Compute pointer to end of block 
LOAD12 DECRA XPTR, DESCR Decrement pointer 
POP YPTR Restore data type 
PUTDC XPTR, DESCR, YPTR Insert in block 
DECRA YCL,1 Decrement count 
ACOMPC YCL,0,LOAD12 Check for end 
LOAD YPTR,YSP,VSP, FAIL Load external function 
PUTDC XPTR,0O,YPTR Insert entry point 
BRANCH RETNUL Return null string as value 
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09003247 
00093248 
00093249 
90003250 
00003251 
00003252 
00003253 
00003254 
00003255 
00003256 
00003257 
00003258 
00003259 
00003260 
00003261 
00003262 
00003263 
00003264 
00003265 
00003266 
00003267 
00003268 
00003269 
00003270 
00003271 
00003272 
00003273 
00003274 
00003275 
00003276 
00093277 
00003278 
00003279 
00003280 
00003281 
00003282 
00003283 
00003284 
00003285 
00003286 
00003287 
00003288 
00003289 
00003290 
00003291 
00003292 
00003293 
00003294 
00003295 
00003296 
00003297 
00003298 
09003299 
00003300 
00003301 
00003302 
00903303 
00003304 
00003305 
00003306 
00003307 
00003308 
00003309 
09003310 
00003311 
00003312 
00003313 
00003314 
00003315 
00003316 
00003317 
00003318 
00003319 
00003320 
00003321 
00003322 
00003323 
00003324 


* 


LNKIV 
* 


Ps 
LNKRI 
* 


os 
LNKIR 


LNKRV 


oe 
LNKVI 


LNKF6 


PUSH 
BRANCH 


PUSH 
BRANCH 


PUSH 
SETSP 
SETLC 
INCRA 
LEXCMP 


PUSH 
BRANCH 


SOURCE LISTING 


ZEROCL _ Save 0 for unspecified type 
LOAD8 Continue 

ZEROCL Save 0 for unspecified type 
LOAD10 Continue 

ZEROCL . Save 0 for unspecified type 
TSP,XSP Set up break check 

TSP, 1 Set length to 1 

YCL,1 

TSP, RPRNSP, LOADS, LOAD13, LOADS 

ZEROCL Save 0 for unspecified type 
LOAD13 Continue 


UNLOAD (F) 

PROC * UNLOAD (F) 

RCALL . XPTR,VARVAL,, FAIL Get function name 

RCALL ZCL, FINDEX,XPTR Locate function descriptor 
PputTpe ZCL,0,UNDFCL Undefine function . 

LOCSP XSP,XPTR Get specifier 

UNLOAD xSP : Unload external detent ein 
BRANCH RETNUL Return 


' — 


Linkage to External Functions 


RCALL 
RLINT 
INTRL 
BRANCH 
LocsPe 


SPCINT 
SPREAL 


REALST 
RCALL 
LocsP 
SPCINT 
SPREAL 


INCRA 


. Z2CL,YCL,DESCR 


é , . _ Procedure to link to externals 
_ XCL, INCL Get actual number of arguments 

WCL, XCL Save copy 

YCL, INCL Save function descriptor 


Get definition block . 
YPTR Post stack position 
TCL, 2*DESCR 
(XCL, 2CL, TCL, YPTR,WCL, YCL) 

Save working descriptors 
XPTR,ARGVAL, « FAIL Evaluate argument 
(YCL,WCL, YPTR, TCL, ZCL,XCL) 
Restore working descriptors 


ZPTR,ZCL,TCL Get data type required 
ZPTR,O, ,LNKF6 Check for possible conversion 
ZPTR,XPTR, , LNKF6 Skip if data types the same 
DTCL,XPTR Data type of argument 
DTCL,ZPTR Data type required 


DTCL,VIDTP,, LNKVI STRING-INTEGER 
DTCL,IVDTP,,LNKIV ~INTEGER-STRING 
DTCL,RIDTP, , LNKRI REAL~ INTEGER 
DTCL, IRDTP, , LNKIR INTEGER~REAL 
DTCL,RVDTP, , LNKRV REAL-STRING 
DTCL, VRDTP, INTR1, LNKVR 
STRING- REAL 
XPTR,GNVARI, XPTR, LNKF6 
Convert INTEGER to STRING 


XPTR, XPTR, INTR1, LNKF6 
Convert REAL to INTEGER 


XPTR,XPTR 


Convert INTEGER to REAL 
LNKF6 
XSP,XPTR Get specifier 
XPTR,XSP,,LNKIR Convert STRING to INTEGER 
XPTR,XSP, INTR1, LNKF6 

Convert STRING to REAL 
XSP,XPTR 


XPTR, GENVAR, XSPPTR, LNKF6 


XSP,XPTR Get specifier 
XPTR,XSP, ,LNKF6 Convert to INTEGER 
XPTR,XSP,INTR1, LNKRI 

Convert STRING to REAL 
TCL, DESCR 


Increment offset 


ae: ee 


Set offset for first argument — 


00003325 
00003326 
00003327 
00003328 
00003329 


00003330 


00003331 
00003332 
00003333 
00003334 
00003335 
00003336 
00003337 
00003338 
00003339 
00003380 
00003341 
00003382 
00003343 
00003344 
000033485 
00003346 
00003347 
00003388 
00003349 
00003350 
00003351 
00003352 
00003353 
(0003354 
00003355 
00003356 
C€0003357 
00003358 
00003359 


00003360 | 


00003361 
00003362 
00003363 
00003364 
00003365 
00003366 
00003367 
00003368 
00003369 
00003379 
000C3371 
00003372 
00003373 
00003374 
00003375 
00003376 
00003377 
00003378 
00003379 
00003380 
00003381 
00003382 
00003383 
00003364 
00003385 
00003386 
00003387 
00003388 
00003389 
00003390 
00003391 
00003392 
00003393 
00003394 
00003395 
00003396 
00003397 
00003398 
00003399 
00003800 
00003401 
00003402 


9) “ 


SOURCE LISTING 


A EE OE AE 


PUSH XPTR Save argument 6003403 
DECRA XCL,1 Decrement argument count 00003404 
ACOMPC XCL,0,LNKF1,,LNKF4 Check for end 00003405 
GETDC WPTR,YCL,0 Get procedure descriptor 00003406 
SETAV WPTR,WPTR Get argument count required 00003407 
LNKF& ACOMP WCL,WPTR,LNKF9, LNKF5S 00003408 
* : Check against arguments occurring 00603409 
MOVD XPTR,NULVCL Supply null string 00003470 
INCRA WCL,1 Increment count oo003s4uT1 
BRANCH LNKF7 000034142 
+ 00093413 
LNKF9 POP ZPTR Throw away extra argument GO003418 
-  DECRA WCL, 1 pecrement argument count 00003415 
BRANCH LNKF4& Continue 00003416 
*— 00003417 
LNKF5 GETSIZ WCL,ZCL Get size of definition block 000034818 
SUM XPTR,ZCL,WCL Compute pointer to end 00003419 
GETDC ZPTR, XPTR,0 Get data target descriptor 00003420 
GETDC, 2ZCL,ZCL,DESCR Get function address 00003421 
INCRA YPTR, 2*DESCR Get pointer to argument list 00003422 
LINK ZPTR,YPTR,WPTR, ZCL, FAIL 00003423 
* ye Link to external function 00003424 
VEQLC ZPTR,L,RTZPTR Check for linked string ; 00003425 
GETSPC ZSP,ZPTR,0 Get specifier 00093426 
BRANCH GENVRZ Go generate variable 000034527 
*_ 00003428 
——-* QO003429 
TITLE tarrays, Tables, and Defined Data Objects! 00003430 
- 00003431 
* ARRAY (P,V) 00003432 
* : 00003433 
ARRAY PROC v ARRAY (P,V) 00003434 
RCALL XPTR,VARVAL,,FAIL Get prototype 00003435 
PUSH XPTR : Save prototype 00003436 
RCALL TPTR, ARGVAL, , FAIL Get initial value for array elements 00003437 
POP XPTR Restore prototype 00003438 
SETAC ARRMRK , 0 Clear prototype analysis switch 00003439 
MOVD WCL, ZEROCL Initialize dimensionality to zero 00003440 
MOVD XCL,ONECL Initialize size to one 00003441 
LOcCSP XSP,XPTR Get specifier to prototype 00003442 
PUSH XPTR Save prototype for later insertion 00003443 
ARRAY1 STREAM YSP,XSP,NUMBTB, PROTER,ARROTI E3.5.1 

SPCINT YCL,YSP,PROTER Convert string to integer 000034946 
SELBRA STYPE, (, ARRAY3) Branch on colon or comma 00003487 
FSHRTN XSP,1 Delete colon 00003448 
STREAM ZSP,XSP,NUMBTB, PROTER,ARROT2 00003849 
SPCINT ZCL,2SP,PROTER Convert upper bound to integer 00003450 
SELBRA STYPE, (PROTER, ARRAYS) “ 90003451 
* Verify break character 00003852 
* 00003453 
ARRAY3 ACOMPC YCL,0,,PROTER, PROTER : 00003454 
* Single number must be positive 00003455 
MOVD ZCL, YCL Move to copy 00003456 
SETAC YCL, 1 Set lower bound to default of one 00003457 
; BRANCH ARRAY6 00003458 
+ : ~ 006003459 
ARRAYS SUBTRT ZCL, ZCL,YCL Compute difference 00003460 
SUM ZCL, ZCL, ONECL Add one 00003461 
ACOMPC ZCL,0,,,PROTER 00°%C3462 
ARRAY6 SETVA YCL,ZCL Insert width of dimension 00003463 
PUSH YCL Save dimension information 00003464 
MULT XCL,XCL,ZCL,PROTER Compute size of array to this point 00003465 
INCRA WCL, 1 Increase count of dimensions 00003866 

AEQLC ARRMRK,0,ARRAY? £3.5.1 : * 
FSHRTN XSP,1 Remove break character 00003467 
BRANCH ARRAY1 00003468 
+ 00003469 
ARROT1 SETAC ARRMRK, 1 On run out, mark end of prototype 00003470 
SPCINT YCL,YSP,PROTER, ARRAY 3 00003471 
* Convert string to integer 00003472 
+ 00003473 
ARROT2 SETAC ARRMRK,1 On run out, mark end of prototype 00003474 
SPCINT 2ZCL,2ZSP,PROTER,ARRAYS 00003475 
* Convert string to integer 00003476 
00003477 
ARRAY? SUM 2CL,XCL,WCL Add dimensionality to array size 00003478 
INCRA ZCL, 2 Add two for heading information 00003479 
MULTC ZCL,ZCL, DESCR Convert to address units | 00003480 
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ARRAYS 


Associ 


ASSOC4 


ASSOCE 


ASSOC2 


DATDEF 


SQURCE_ LISTING 


ZCL,A Insert ARRAY data type 

ZPTR, BLOCK, ZCL Allocate block for array structure 
XPTR, Z2PTR Save copy 

WPTR,XPTR,ZCL Get pointer to last descriptor 
ZPTR, 2*DESCR,WCL Insert dimensionality 

XPTR, DESCR Update working pointer 

XPTR, DESCR Update working pointer for another 
YPTR Restore index pair 

XPTR,DESCR, YPTR Insert in structure 

WCL, 1 Decrement dimensionality 


WCL, 0, ARRAY8,ARRFIL Check for last one 
XPTR,DESCR,TPTR Insert initial value 
XPTR,DESCR Update working pointer 
XPTR, WPTR, INTR10, ,ARRAYI 

Check for end 
YPTR . Restore prototype 
ZPTR, DESCR, YPTR 
RTZPTR 


TABLE (N,M) 

PROC e TABLE (N,M) 
RCALL XPTR, INTVAL, , FAIL Get table size 
PUSH XPTR : Save size 
RCALL WPTR, INTVAL, , FAIL Get secondary allocation 
POP > XPTR ; Restore size 
ACOMPC XPTR,0,ASSOC1,,LENERR 

SETAC XPTR, EXTSIZ 

INCRA XPIR,1 

MULTC XPTR, XPTR, 2*DESCR 

ACOMPC WPTR,0,ASSOCH,, LENER 

SETAC WPTR, EXTSIZ . : 

INCRA WPTR,1 

MULTC WPTR, WPTR, 2*DESCR 

SETVC XPTR,T 

PROC Assoc 

RCALL ZPTR,BLOCK, XPTR 

PUTD ZPTR, XPTR, ONECL 

DECRA XPTR, DESCR 

PUTD ZPTR, XPTR, WPTR 

DECRA XPTR, 2*DESCR 

PUTD Z2PTR, XPTR, NULVCL 

AEQLC XPTR, DESCR, ASSOC2, RTZPTR 


DATA (P) 


PROC 
RCALL 
SETAC 
LOCSP 
STREAM 


AEQLC 
RCALL 


RCALL 
INCRV 
VEQLC 


MOVD 
RCALL 


PSTACK 
PUSH 
FSHRTN 
AEQLC 
STREAM 


SELBRA 
LEQLC 
RCALL 
PUSH 
RCALL 
GETDC 


‘ ‘DATA (P) — - 
XPTR,VARVAL,,FAIL Get prototype 

DATACL, 0 Initialize prototype switch 
XSP,XPTR Get specifier 


YSP,XSP,VARATB, PROTER, PROTER . 
Break out data type name 
STYPE,LPTYP,PROTER Verify left parenthesis 
XPTR,GENVAR, (YSPPTR) . 
Generate variable for name 


Z2CL, FINDEX, (XPTR) Find function descriptor 


DATSEG, 1 ~~ Increment data type code 
DATSEG, DATSIZ, , INTR27 

Check against limit 
YCL, ZEROCL Initialize count of fields 


DTATL, AUGATL, (DTATL, DATSEG, XPTR) 
Augment data type pair list 
WPTR Post stack position 


(DATSEG, XPTR) Save code and name 
XSP,1 Delete break character: 
DATACL,0,DATS5 Check for prototype end 


YSP,XSP, VARATB, PROTER, PROTER 
Break out field 
STYPE, (PROTER, , DATA6) 


Insert prototype in structure 
Return pointer to array structure 


E3.2.% 
E3.2.3 


E3. 2. 

E3.2.3 
E3.2.3 
E3. 2.3 
E3.2.3 
E3.2.3 
E3. 2. 3 
E3. 2. 3 
E3.2.3 
E3.2.3 
E3. 23 


YSP,0,,DATA3 Check for zero length 

XPTR,GENVAR, YSPPTR Generate variable 

XPTR Save field name 

XCL,FINDEX, (XPTR) Find. function descriptor for field 


weL, XCL, 0 Get procedure descriptor 
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00003481 
00003482 
00003483 
00003488 
00003485 
00003486 
00003487 
00003488 
00003489 
00003490 
00003491 
00003492 
00003493 


* 00003494 


00003495 
00003496 


00003497 > 


00003498 
00003499 
00003500 
00003501 
00003502 
00003503 
00003504 
00003505 
00003506 
00003507 
00003508 
00003509 


. 00003510 


00003512 
00003513 


00003529 
00003530 
00003531 
00003532 
00003533 
00003534 
00003535 
00003536 
00003537 
00003538 
00003539 
00003540 
00003541 
00003542 
00003543 
00003544 


00003545 


00003546 
00003547 
00003548 
00003549 
00003550 
00003551 
00003552 
00003553 
00003554 
00003555 
00003556 
00003557 
00003558 
00003559 
00003560 
00003561 


Wess pat 


SOURCE _ LISTING 


DEQL WCL, FLDCL, DAT6 
GETDC ZPTR,XCL,DESCR 
MULTC TCL, YCL, DESCR 


Check for FIELD procedure 
Get field definition block 


RCALL ZPTR,AUGATL, (ZPTR,DATSEG, TCL) 


DAT? puTpc XCL, DESCR, ZPTR 
INCRA YCL,1 
BRANCH DATA3 


DATA6 SETAC  DATACL,1 
BRANCH DATAY 


DATS LEQLC XSP,0, PROTER 
AEQLC YCL, 0,» PROTER 
SETVA DATCL, YCL 
PUuTDC ZCL,0,DATCL 
MULTC YCL, YCL,DESCR 
INCRA YCL, 2*DESCR 
MOVV YCL, DATSEG 
RCALL ZPTR, BLOCK, YCL 
INCRA WPTR, DESCR 
MOVBLK ZPTR,WPTR, YCL 
PuTDC ZCL,DESCR, ZPTR 
BRANCH RETNUL 


DAT6 puTDC XCL,0,FLDCL 
RCALL 2ZPTR,BLOCK, TWOCL 
PUTDC ZPTR,DESCR, DATSEG 
MULTC TCL,YCL,DESCR 
PUTDC. ZPTR,2*DESCR,TCL 
BRANCH DAT7 


* PROTOTYPE (A) - . 


PROTO PROC F 
RCALL XPTR,ARGVAL,,FAIL 
VEQLC  XPTR,A,NONARY 
GETDC ZPTR,XPTR,DESCR 
BRANCH © RTZPTR 


* Array and Table References 


ITEM PROC i 
SETAV XCL,INCL 
DECRA XCL,1 
PUSH XCL 
RCALL YCL,ARGVAL,, FAIL 
POP xcL ta, on ae 
VEQLC YCL,A,,ARYAD3 
VEQLC YCL,T,NONARY,ASSCR 
ARYAD3 MOVD WCL, XCL 


ARYAD1 ACOMPC XCL,0,,ARYAD2, ARYAD2 


PUSH (XCL,WCL, YCL) 
RCALL XPTR,INTVAL,,FAIL 
POP (YCL,WCL, XCL) 
PUSH XPTR 


DECRA XCL,1 
BRANCH ARYAD1 


2PTR, ZEROCL 
GETDC ZCL,YCL, 2*DESCR 
MULTC YPTR,ZCL, DESCR 
SUM YPTR,YCL,YPTR 
INCRA YPTR, 2*DESCR 


ARYAD? ACOMP WCL, ZCL,ARGNER, ARYAD9 
* 


PUSH ZEROCL 
INCRA WCL,1 
BRANCH ARYAD7 


* 

ARYADO9 INCRA YCL, 2* DESCR 
GETDC WPTR,YCL,DESCR 
SETAV TPTR,WPTR 

ARYA11 POP XPTR 


Insert new definition block 
Continue 


Note end of prototype analysis 
Join field processing 


verify prototype consumption 


E3.1.2 
Insert field count for data function 


Insert new procedure descriptor 


Add two for the number and name 
Insert defined data code 
Allocate definition block 


E3.0.3 


Copy from stack into block 
Insert definition block 
Return null value 


Insert FIELD procedure descriptor 
Allocate definition block 
Insert data type code 


Join processing 


PROTOTYPE (A) 
Get argument . 
Verify ARRAY 
Get prototype 
Return 


Array or table reference 
Get argument count 

Skip referenced object 

Save count 

Get referenced object 
Restore count 

ARRAY is acceptable 

TABLE is acceptable 

Save copy of argument count 


Count down on arguments 
Save 

Get index 

Restore saved descriptors 
Save index 

Decrement argument count 


Initialize offset to zero 
Get number of dimensions 
Convert to addressing units 
Add base and offset 

Add two for heading 


Compare given and required number 
If too few, supply a zero 
Increment and loop 


Get index pair 
Get extent of dimension 
Get index value 
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49003562 
00003563 
00003564 


(00003565 


00003566 
00003567 
00003568 
00003569 
00003570 
(0003571 
00003572 
00003573 


00003574 
00003575 
00003576 
(0003577 
00003578 
00003579 


00003580 
00003581 
00003582 
00003583 
00003584 
00003585 
00003586 
00003587 
00003588 
00003589 
00003590 
00003591 
00003592 
00003593 
00003594 
00003595 
00003596 
00003597 
00003598 
00003599 
00003600 
00003601 
00003602 
00003603 
000036C4 
(0603605 
00003606 
00003607 
00003608 
00003609 
00003610 
00003611 
00003612 
00003613 
00003614 
00003615 
00003616 
00003617 
00003618 
00003619 
000036206 
00003621 
000603622 
00003623 
000036248 
00003625 
00003626 
00003627 
00003628 
00003629 
00003630 
00003631 
00003632 
00003633 
00003634 
00003635 
00003636 
00003637 


Ss CE LISTING 


SUBTRT XPTR,XPTR,WPTR Compute differnece from lower bound 00003638 
ACOMPC XPTR,0,,,FAIL If less than zera, out of bounds 00003639 
ACOMP XPTR,TPTR,FAIL,FAIL If greater than extent, out of bound 00003640 4 
SUM XPTR,ZPTR,XPTR Else add to evolving sum 00003641 bam 
DECRA ZCL,1 Decrement dimension count 009036482 “’ 
ACOMPC 2ZClL,0,,ARYA12 Get out if done 00003643 “aus 
INCRA YCL, DESCR Adjust bas pointer 00003644 
GETDC WPTR, YCL,DESCR Get index pair 00003645 
SETAV TPTR,WPTR Get extent of dimension 00003646 
MULT ZPTR,XPTR,TPTR Multiply for next dimension 00003647 
BRANCH ARYA11 Continue with next dimension 00003648 
* 00003649 
ARYA12 MULTC XPTR,XPTR, DESCR Expand offset into addressing units 00003650 
SUM XPTR, YPTR, XPTR Add to adjusted base 00003651 
ARYA10 SETVC XPTR,N Insert NAME data type 00003652 
BRANCH RTKNAM . Return interior pointer 00003653 
* 00003654 
ASSCR AEQLC XCL, 1, ARGNER Only one argument for tables 00003655 
PUSH | YCL Save pointer to object 00003656 
RCALL YPTR, ARGVAL, » FAIL Evaluate argument 00003657 
POP XPTR E£3.2.3 
ASSCR5 LOCAPV WPTR,XPTR,YPTR, ,ASSCRY £3.2.3 
LOCAPV WPTR,XPTR, ZEROCL,ASSCR2 : 00003661 
* Look for item with null value 00003662 
ASSCR4 MOVA XPTR,WPTR 00003663 
PUTDC XPTR,2*DESCR,YPTR E3.2.3 
BRANCH ARYA10 Join array reference exit — : ~ 90003665 
+ : 00003666 
ASSCR2 GETSIZ TCL,XPTR E3.2.3 
GETD ZPTR,XPTR, TCL E3.2.3 
AEQLC ZPTR,1,,/ASSCR23 E3.2.3 
MOVD XETR,ZPTR E3.2.3 
BRANCH ASSCR5 : E£3.2.3 
* E3.2.3 
ASSCR3 DECRA ' TCL,DESCR E3.2.3 
GETD WPTR,XPTR, TCL E3.2.3 
PUSH (XPTR, TCL, YPTR) . E3.2.3 
MOVD XPTR, WPTR E3.2.3 
RCALL ZPTR,ASSOCE,, (INTR10,INTR10) EB3.2.3 
POP (YPTR, TCL, XPTR) E3.2.3 
SETVC Z2PTR,B E3.2.3 a | 
INCRA TCL, DESCR E3.2.3 — 
PUTD XPTR,TCL, ZPTR E3.2.3 
PuTDC ZPTR,2*DESCR,YPTR E3.2.3 
MOVD XPTR,2ZPTR E3.2.3 
BRANCH ARYA10 E3.2.3 
. ve, , 00003683 
* . —~* 00003684 
* Defined Object Creation 00003685 
* 00003686 
DEFDAT PROC ° ~Procedure to create defined objects 00003687 
SETAV XCL, INCL Get given number of arguments 00003688 
MOVD WCL, XCL Save a copy ' 00003689 
MOVD YCL, INCL Save function descriptor 00003690 
PSTACK YPTR Post stack position 00003691 
DEFD1 INCRA OCICL, DESCR Increment offset 00003692 
GETD XPTR,OCBSCL, OCICL Get object code descriptor — 00003693 
TESTF XPTR,FNC, ,DEFDC Check for function 00003694 
DEFD2 AEQLC INSW,0,,DEFDS8 | Check &INPUT 00003695 
LOCAPV 2PTR, INATL, XPTR, DEFDS 00003696 
* Look for input association 00003697 
GETDC ZPTR, ZPTR, DESCR Get association 00003698 
PUSH (XCL,WCL,YCL,YPTR) Save relevant descriptors 00003699 
RCALL XPTR, PUTIN, (ZPTR,XPTR) , FAIL 00003700. 
POP (YPTR,YCL,WCL,XCL) Restore relevant descriptors 00003701 
BRANCH DEFD3 Join main processing 00003702 
x 00003703 
DEFD8 GETDC XPTR,XPTR, DESCR Get value 00003704 
DEFD3 PUSH XPTR Save value 00003705 
DECRA XCL, 1 Decrement argument count 00003706 
ACOMPC XCL,0,DEFD1,,INTR10 Check for end 00003707 
GETDC XCL, YCL, 0 Get procedure descriptor 00003708 
SETAV XCL,XCL Get number of arguments expected 00003709 
DEFD4 ACOMP WCL,XCL,DEFD5,DEFDS Compare given with expected 00003710 
PUSH NOLVCL Save null for omitted argument 00003711 
INCRA WCL, 1 Increment count 00003712 
BRANCH DEFDS Continue 00003713 
+ 00003714 
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4 
Yhasiea” 


SA 


wt et # 


DEFDS 


FIELD1 © 


PROC 7 Field function procedure 
PUSH - INCL Save function descriptor 
RCALL XPTR, ARGVAL, » FAIL Get value 
DEQL XPTR, NULVCL, , NONAME Check for null value 
POP YCL Restore function descriptor 
VEQLC XPTR,1,FIELD1 Check for INTEGER 
RCALL XPTR,GNVARI, XPTR Convert INTEGER to STRING 
MOVV DT1CL,XPTR Set up data type 
GETDC YPTR, YCL,DESCR Get definition block 
LOCAPT ZCL, YPTR, DTICL,INTR1 
: Look for data type offset 
GETDC ZCL, Z2CL, 2*DESCR Get offset 
SUM XPTR,XPTR,ZCL , Compute field position 
SETVC XPTR,N Insert NAME data type 
BRANCH RTXNAM Return name 
TITLE ‘Input and Output‘ 
INPUT (V, U,L) 
PROC Pr INPUT (V,U,L) 
RCALL XPTR, IND, ,FAIL Get variable 
PUSH XPTR Save variable 
RCALL YPTR, INTVAL, , FAIL Get unit 
PUSH YPTR Save unit 
RCALL ZPTR, INTVAL, »FAIL Get length 
POP (YPTR, XPTR) Restore unit and variable 
ACOMPC YPTR,0,,READ5, UNTERR 
, ee _ Check for defaulted unit 
ACOMPC ZPTR, 0,READ2,¢LENERR ‘ 
Check for defaulted length 
LOCAPT TPTR, INSATL, YPTR, READY 
Look for default length 
LOCAPV ZPTR, INATL, XPTR, READ1 : 
Look for existing association 
puToc ZPTR, DESCR,TPTR . Inset input block 
BRANCH RETNUL . Return 
, add new association pair 
RCALL INATL, AUGATL, (INATL,TPTR-XPTR) -RETNUL 
MOVD ZPTR, DFLSIZ Set standard default 
RCALL TPTR, BLOCK, IOBLS2 Allocate block 
PUTDC TPTR,DESCR,YPTR . Insert unit 
PUTDC TPTR, 2*DESCR, ZPTR Insert format 
BRANCH READ3 Rejoin processing 
SETAC YPTR,UNITI Set up default unit 
BRANCH READ6 Join processing . 
* 
Beat a et ee es 
OUTPUT (V, U, F) 
PROC ’ OUTPUT (V,U,F) 
RCALL XPTR, IND,, FAIL Get variable 
PUSH XPTR ; Save variable 
RCALL YPTR,INTVAL,,FAIL Get unit 


SOURCE LISTING 


WCL, YCL, DESCR 
XCL,XCL,DESCR 
xcL,WCL . 
ZPTR, BLOCK, XCL 
YPTR,DESCR 
ZPTR, YPTR,XCL 
RTZPTR 


(XCL,WCL, YCL, YPTR) 


Get definition block 


Insert data type code 


Allocate block for data object 


Adjust stack position 
Move values into block 
Return new object 


Save relevant descriptors 


XPTR, INVOKE, (XPTR) , (FAIL, DEFDN) 


(YPTR, YCL,WCL, XCL) 
DEFD3 


(YPTR, YCL,WCL, XCL) 
DEFD2 


Restore relevant descriptors 
Join main processing 


Restore relevant descriptors 
Join main processing 


Fields of Defined Data Objects 
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ve odZ3TVS 
66003716 
00003717 
00003718 
0000371S 
06003729 
00003721 
00003722 
00003723 
00003724 
060003725 
00003726 
00003727 
00003728 
00003729 
00003730 
00003731 
00003732 
00003733 
00003734 
00003735. 
00003736 
00003737 


- 00003738 


4 


00003739 
00003749 
00003741 
00003742 
00003743 


.CO003TS4 


00003745 
00003746 
00003747 
00003748 
00003749 
00003750 
00003751 
00003752 
00003753 
00003754 
00003755 
00003756 
00003757 
00003758 
00003759 
00003760 
00903761 
00003762 
00003763 
00003764 
00003765 
00003766 
00003767 
00003768 
00003769 
000037796 
00003771 
00003772 
00003773 
00003774 
00003775 
00003776 
00003777 
00003778 
00003779 
0000378C 
00093781 
00003782 
00003783 
00003784 
00003785 
00003786 
00003787 
00003788 
00003789 
00003790 
00003791 
00003792 


PRINT6 


* 
PRINT3 


DTCH1 


PUSH YPTR 
RCALL ZPTR,VARVAL,,FAIL 
POP (YPTR, XPTR) 


ACOMPC YPTR,0,,PRINT5,UNTERR 


AEQLC ZPTR,0,PRINT2 


Check for defaulted format 


LOCAPT TPTR,OTSATL, YPTR,PRINTY 


Insert length 


LOCAPV ZPTR,OUTATL, XPTR, PRINT 


PUTDC ZPTR, DESCR,TPTR 
BRANCH RETNUL 


RCALL OUTATL, AUGATL, (OUTATL, TPTR, XPTR) , RETNUL 
Add new association pair 


MOVD ZPTR,DFLFST 
RCALL TPTR, BLOCK, IOBLS2Z 
PUTDC TPTR, DESCR, YPTR 

. purpe TPTR,2*DESCR,ZPTR 
BRANCH PRINT3 


SETAC YPTR,UNITO 
BRANCH PRINT6 


BACKSPACE (U) » ENDPILE(U), and REWIND (0) 


PROC: , 


SETAC SCL, 1 
BRANCY Toor 


PROC —- BKSPCE 
SETAC SCL, 2 
BRANCH IO0OP 


PROC BKSPCE 

SETAC SCL, 3 

PUSH SCL 

RCALL XCL, INTVAL, , FAIL 
ACOMPC XCL,0,,UNTERR, UNTERR 


POP sch 

StLBRA SCL, (,EOP, ROP) 
BKSPCE xXCL 

BRANCH RETNUL 


ENFILE XCL 
BRANCH RETNUL 


REWIND xXCL 
BRANCH RETNUL 


DETACH (N) 


PROC ° 


RCALL XPTR, IND,, FAIL 


Look for output association 
Insert output block 


Return 


BACKSPACE (N) 
Indicate backspace 


ENDFILE (N) 
Indicate end of file 


REWIND (N) 


Indicate rewind 
Push indicator 
Evaluate integer argument 


End file unit 


‘Rewind unit 


DETACH (N) 


Get name of variable 


LOCAPV ZPTR,INATL, XPTR, DTCH1 


PUTDC ZPTR, DESCR, ZEROCL 


Look for input association 
Delete association if there is one 
PUTDC ZPTR, 2*DESCR,ZEROCL Clear association pointer also 


LOCAPV ZPTR,OUTATL, XPTR, RETNUL 


PUTDC ZPTR, DESCR, ZEROCL 


BRANCH RETNUL 


Input Procedure 


PROC 


e 
POP (IO1PTR, IO2ZPTR) 


Look for output association 

Delete association is there is one 
PUTDC ZPTR,2*DESCR,ZEROCL Clear association pointer also 
Return null value 


Input procedure 
Restore block and variable 


GETDc IO3PTR,IOWTR,DESCR Get unit 
GETDC IOMPTR, [O1PTR, 2*DESCR 


Get lengt 


- 52 ~ 


SOURCE LISTING 


Save unit 
Get format 
Restore unit and variable 


‘Set default unit 
Join processing 


. Set up standard default 
Allocate block 

Insert unit 

Insert format 

Rejoin processing 


Reject negative or zero 
Restore indicator 
Select operation 
Backspace unit 


00003793 
00003794 
00003795 
00003796 
00003797 
00003798 
00003799 
00003800 
00003801 
00003802 
00003803 
00003804 
00003805 
00003806 


00003807 


00003808 
00003809 
00003810 
00003811 
00003812 
00003813 
00003814 
00003815 
00003816 


. 00003817 


00003818 
00003819 
00003820 
00003821 


90003822 


00003823 
00003824 
00003825 
00003826 
00003827 
00003828 
00003829 
00003830 
00003831 
00003832 
00003833 
00003834 
00003835 
00003836 
00003837 
00003838 
00003839 
00003840 
00003841 
00003842 
00003843 
00003844 
00003845 
00003846 
00003847 
0000384 
00003849 
00003850 
00003851 
00003852 
00003853 
00003854 
00003855 
00003856 
00003857 
00003858 
00003859 
00003860 
00003861 
00003862 
00003863 
00003864 
00003865 
00003866 
00003867 
00003868 
00003869 
00003870 


Neca 


O 


PUTIN 


PUTOUT 


ree rene LL 


TRAC5 
* 


TRACEP 


TRAC2 


ACOMP IOWTR, MLENCL, INTREB 
RCALL LO4 PTR, CONVAR, (IO1PTR) : 
Get space for string 
LOCSP IOSP, IOUPTR Get specifier 
INCRA RSTAT, 1 Increment count of reads 
STREAD IOSP,IO3PTR,FAIL,COMPS 
Perform read 
AEQLC TRIMCL, 0,,PUTINI Check S&INPUT 
TRIMSP IOSP,IOSP Trim string 
GETLG IOUPTR, IOSP Get Length 
RCALL LOIPTR,GNVARS, LO1PTR 
Form variable for string 
PUTDC IO2PTR, DESCR, IOIPTR Assign value 
RRTURN IOUPTR,2 Return value 
rr HE 
Output Procedure | 
PROC ' 7 Output procedure 
POP (LO1PTR, LO2PTR) Restore block and value 
VEQLC IO2PTR,S,,PUTV Is value STRING? 
VEQLC LO2PTR,1L,,PUTI Is value INTEGER? 
RCALL IO2PTR, DTREP, IOZPTR Get data type representation 
GETSPC ‘IOSP,IO2PTR,0 Get specifier 
BRANCH PUTVU Join processing 
LOcSsP IOSP, LO2PTR Get specifier 
STPRNT IOKEY,IOPTR, IOSP Perform print 
INCRA WSTAT, 1 : Increment count of writes 
BRANCH RTN1 Return ; - 
INTSPC IOSP,IO2PTR Convert INTEGER to STRING 
BRANCH PUTVU Rejoin processing 
* 
TITLE *'Tracing Procedures and Functions? 
TRACE(V,R,T,F) " 
PROC ° TRACE (V,R,T,F) 
RCALL XPTR,IND,, FAIL Get name of variable 
PUSH XPTR Save name 
RCALL YPTR,VARVAL, , FAIL Get trace type 
PUSH YPTR Save type 
RCALL WPTR,ARGVAL, , FAIL Get tag 
PUSH WPTR Save tag 
RCALL ZPTR,VARVAL, , FAIL Get trace function 
POP (WPTR, YPTR, XPTR) Restore saved arguments 
DEQL YPTR,NULVCL,TRACS Is type defaulted?? 
MOVD YPTR,VALTRS -. _ Set up VALUE default 
LOCAPV YPTR,TRATL, YPTR,TRAC1 
Look for trace type 
GETDC YPTR, YPTR, DESCR Get sub pair list 
PROC TRACE Subentry for TRACE 
GETDC TPTR,YPTR,DESCR Get default function © & 
DEQL ZPTR,NULVCL,,TRAC2 Check for null 
RCALL TPTR,FINDEX, (ZPTR) Locate function descriptor 
SETAC XSIZ,5*DESCR v3.7 
SETVC XSIZ,C Insert CODE data type 
RCALL XCL, BLOCK, XSIZ Allocate block for code 
MOVBLK XCL,TRCBLK, XSIZ . v3.7 
SETVC TPTR,2 Set up 2 arguments 
PUTDC XCL, 1*DESCR, TPTR Insert function descriptor 
PUTDC XCL, 3*DESCR, XPTR Insert name to be traced 
PUTDC XCL, 5*DESCR,WPTR Insert tag 
GETDC TPTR, YPTR,0 Make entry for proper attribute 
AEQLC TPTR,0,, TRACY 
LOCAPT TPTR,TPTR,XPTR, TRAC3 
Locate trace 
PUTDC TPTR,2*DESCR, XCL Insert new code block 
BRANCH RETNUL Return 
RCALL TPTR, AUGATL, (TPTR, XPTR, XCL) 
Augment pair list for new entry 
PUTDC YPTR,0,TPTR Link in new pair list 
BRANCH RETNUL Return 


SQURCE_ LISTING 


Check &MAXLNGTH 
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“©003871 
7003872 
00003873 
00003874 
00003875 
00003876 
00003877 
00003878 
00003879 
00003880 
00003881 
00003882 
00003883 
00003884 
00003885 
00003886 
00003887 
00003888 
05003889 
00003890 
00003891 
00003892 
00003893 
00003894 
00003895 


00003896 


00003897 
00003898 
00003899 
00003900 
00003901 
00003902 
00003903 
00003904 
00003905 
00003906 
00003907 
00003908 
00003909 
00003910 
00003917 
00003912 
00003913 
00003914 
00003915 
00003916 
00003917 
00003918 
00003919 
00003920 
00003921 
00003922 
60003923 
00003924 
00003925 
00003926 
00003927 
00003928 


00003930 
00003931 


00003933 
00003934 
00003935 
00003936 
00003937 
00003938 
00003933 
00003940 
00003941 
00003942 
00003943 
00003944 
00003945 
00003946 
00003947 
00003948 


TRAC! 


STOPT2 
* 


STOPTP 


STOPT1 


DEQL YPTR,FUNTCL,INTR30 Is type FUNCTION? 
MOVD YPTR,TFNCLP . Set up CALL trace 
RCALL  ,TRACEP,, (INTR10,INTR10) 

Call subentry to do it 
MOVD YPTR, TFNRLP Set up RETURN trace 
BRANCH TRACEP Branch to subentry to do it 
RCALL, TPTR,BLOCK,TWOCL Allocate new pair list | 
PUTDC TPTR, DESCR, XPTR Insert name to be traced 
PUTDC TPTR, 2*DESCR, XCL Insert pointer to pseudo-code 
BRANCH TRAC6 

nr a a 

STOPTR(N,T) 
PROC - STOPTR(T,R) 
RCALL XPTR,IND,, FAIL Get name of variable 
PUSH XPTR Save name 
RCALL YPTR, VARVAL, » FAIL Get trace respect 
POP XPTR 
DEQL -. YPTR,NULVCL,STOPT2 Check for defaulted respect 
MOVD YPTR, VALTRS Set up VALUE as default 
LOCAPV YPTR,TRATL,YPTR,STOPT1 

Look for trace respect 
GETDC YPTR, YPTR,DESCR Get pointer to trace list 
PROC STOPTR Subentry for FUNCTION 
GETDC YPTR, YPTR, 0 Get trace list 
LOCAPT YPTR,YPTR,XPTR,FAIL Look for traced variable 
PoTpbc YPTR, DESCR, Z2EROCL Zero the entry 
PUTDE YPTR,2*DESCR, ZEROCL Overwrite trace 
BRANCH RETNUL Return 
DEQL _¥PTR,FUNTCL,INTR30 Check for FUNCTION 
MOVD YPTR, TFNCLP Set up CALL 
RCALL ,STOPTP,, (FAIL, INTR10) 

Call subprocedure 
MOVD YPTR, TFNRLP Set up RETURN 

’ BRANCH STOPTP Branch to subentry 


FNTRLP 


* 
DEFTIA 


Bee, oS 
DEFTI 


Call Tracing 


PROC 
RCALL 
SETLC 
APDSP 
INTSPC 
APDSP 
APDSP 


APDSP 
BRANCH 


INTSPC 


WPTR, VARVAL, , FAIL 


PROTSP,0 


PROTSP, TRSTSP 
XSP,STNOCL 
PROTSP, XSP 
PROTSP, COLSP 
PROTSP, TRLVSP 
XSP, LVLCL 
PROTSP, XSP 
PROTSP, TRCLSP 
XSP,WPTR 


TCL, XSP 


SOURCE LISTING 


Procedure to trace on CALL 
Get argument 
Clear specifier 
Append trace message 
Convert §&STNO to string 
Append &STNO 
Append colon 

_ Append level message 
Convert &FNCLEVEL to string 
Append. &FNCLEVEL 
Append call message 
Get specifier for argument 
Get length 


TCL, BUFLEN, FXOVR, FXOVR 


PROTSP,XSP 
PROTSP, LPRNSP 


WCL,0 
WCL, 1 


Check for excessively long string 
Append function name 

Append left parenthesis 

Set argument count to 0 

Increment argument count 


ZPTR,ARGINT, (WPTR,WCL) , (FENTR4,INTR10) 


ZPTR,ZPTR,DESCR 
ZPTRseSe¢,DEFTV 
ZPTR,I,,DEFTI 
A2PTR, DTREP,ZPTR 
XSP,A2PTR,0 


SCL, XSP 


TCL, TCL,SCL 


Get argument 

Get value 

Is it STRING? 

Is it INTEGER? 

Get data type representation 
Get specifier 

Get length 

Total length 


TCL, BUFLEN, FXOVR, FXOVR 


PROTSP, XSP 


DEFDTT 


XSP,2PTR 


Check for excessively long string 
Append value 
Continue with next argument 


Convert INTEGER to STRING 
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00003949 
00003950 
00003951 
00003952 
00003953 
00003954 
€0003955 
00003956 
00003957 
00003958 
00003959 
00003960 
00003961 
00003962 
00003963 
000039648 


- 00003965 


00003966 
00003967 
00003968 
00003969 
00003970 
00003971 
00003972 
00003973 
00003978 
00003975 
00003976 
00003977 
00003978 
00003979 
00003960 
00003981 
00003982 
00003983 
00003984 
00003985 
00003986 
00003987 
00003988 
00003989 
00003990 
00003991 
00003992 
00003993 
00003994 
00003395 
00003996 
00003997 
00003998 
00003999 
00004000 
00004001 
00004002 
00004003 


00008004 ~ 


00004005 
00008006 
00004007 
00004008 
00004009 
00004010 
00008011 
000048012 
¢0004013 
Q0004 014 
000048015 
000040 16 
000048017 
00004018 
00008019 
00004020 
00004021 
00004022 
00004023 
00004024 
00004025 
00004026 


DEFTV LOCSP 


ACOMPC 


APDSP 
APDSP 
APDSP 
DEFDTT APDSP 
BRANCH 


* 
PENTR4 AEQLC 


SOURCE LISTING 


DEFTIA 


XSP,2PTR 
SCL, XSP 
TCL, TCL, SCL 


Rejoin processing 


Get specifier 
Get length 
Get total length 


TCL, BUFLEN, FXOVR, FXOVR 


PROTSP ,QTSP 
PROTSP, XSP 
PROTSP, QTSP 
PROTSP, CMASP 
FNTRLP 


WCL, 1,,/FENTRS 


Check for excessively long string 
Append quote 

Append value 

Append quote 

Append comma 

Continue processing 


Leave paren if no arguments 
Delete last comma 


. Append right parenthesis 


Get time 

Compute elapsed time 
Convert to STRING 
Append time message 
Append time 

Print trace message 


Standard entry 
Restore function name 


Print error message 


Procedure to trace RerNesOe 
Set entry indicator 

Get keyword 

Get specifier 


SHORTN PROTSP,1 
FENTR5 APDSP PROTSP, RPRNSP 
MSTIME ZPTR 
SUBTRT ZPTR,ZPTR,ETMCL 
INTSPC XSP,ZPTR 
APDSP PROTSP, ETIMSP 
APDSP PROTSP, XSP 
STPRNT. IOKEY,OUTBLK, PROTSP 
BRANCH RTNUL3 Return 
* 
FENTR2 PROC FENTR 
POP WPTR 
BRANCH FENTR3 
* 
FXOVR OUTPUT OUTPUT, PRTOVF 
BRANCH RTNUL3 Return 
* 
* 
* Keyword and Label Tracing 
* 
KEYTR PROC e 
SETAC FNVLCL, 1 
RCALL WPTR,VARVAL,, FAIL 
LOCSP xXSP,WPTR 
. RCALL YCL, KEYT, (WPTR), (INTR10,) 


KEYTR3 SETLC PROTSP, 0 
APDSP PROTSP, TRSTSP 

INTSPC TSP,STNOCL 
APDSP PROTSP, TSP 
APDSP PROTSP, COLSP 
AEQLC FNVLCL, 0, -KEYTRY 
APDSP PROTSP, AMPSP 

KEYTR4Y APDSP PROTSP, XSP 
APDSP PROTSP,BLSP 
AEQLC FNVLCL,0, ¢KEYTRS 
INTSPC YSP,YCL 
APDSP PROTSP, EQLSP 

KEYTRS APDSP PROTSP,YSP 
MSTIME YPTR 
SUBTRT YPTR,YPTR, ETMCL 
INTSPC XSP,YPTR 
APDSP PROTSP, ETIMSP 
APDSP PROTSP, XSP 
STPRNT IOKEY,OUTBLK, PROTSP 
BRANCH RTN2 

* 

LABTR PROC KEYTR 
SETAC FNVLCL, 0 
RCALL YPTR,VARVAL,, FAIL 
LOCSP YSP,YPTR 
SETSP XSP,XFERSP 
BRANCH KEYTR3 

* 

* 

* Trace Handler 

* 

TRPHND PROC e 
PoP ATPTR 
DECRA TRAPCL,1 
PUSH 


Get value of keyword 
Clear specifier 

Append trace message 
Convert 6&STNO to string 
Append &STNO 

Append colon 

Check entry indicator 
Append ampersand 
Append name of keyword 
Append blank 

Check entry indicator 
convert keyword value to string 
Append equal sign 
Append value 

Get time 

Compute elapsed time 
Convert time to string 
Append time message 
Append time 

Print trace message 
Return 


Procedure to trace labels 
Set entry indicator 

Get label name 

Get specifier 

Set up message specifier 
Join common processing © 


Trace handling procedure 
Restore trace 
Decrement &TRACE 


({LSTNCL, STNOCL, FRTNCL, OCBSCL,OCICL, TRAPCL, TRACL) 


Save system descriptors 
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7200027 
© 004028 
00004029 
00004030 
00004031 
00004032 
00004033 
00004034 
00004935 
00004036 
00004037 
00004938 
00004039 
00004040 
00004041 
00004042 
00904043 
00004044 
00004045 
00004046 
000048047 
00008048 
00004049 
00004050 
00004051 
00008052 
00004053 
00004054 
00004055 
00004056 
60004057 
00004058 
00004059 
00004060 
00004061 
00004062 
000048053 
00004064 
00004065 
00008066 
00004067 
00004068 
00004069 
00904070 
00004071 
00004072 
00004073 
00004074 
00004075 
- 00004076 
00004077 
00004078 
00008079 
00004080 
00004081 
~00004082 
00004083 
00004084 
00004085 
00004086 
00004087 
00008088 
00004089 
00008090 
00004091. 
00908092 
00004093 
00008094 
00004095 
00004096 
00004097 
00004098 
00004099 
00004100 
00008101 
00004102 
00004103 
00008104 


VALTRY 


VALTR3 


* 
VALTR1 


*% 


TRPRT 


OCICL, DESCR 
XPTR,OCBSCL,OCICL 


TRAPCL, 0 
TRACL,0 


ys INVOKE, XPTR, (,) 


SOURCE LISTING 
OCBSCL, ATPTR, 2*DESCR 


NEW CODE BASE 
Get new code base 


‘Set up offset 


Get function descriptor 
Set &TRACE to 0 

Set &FTRACE to 0 
E3.3.1 
Evaluate function 


(TRACL, TRAPCL, OCICL, OCBSCL, FRTNCL, STNOCL, LSTNCL) 


RTN1 


Value Tracing 


PROC 
SETAC 
RCALL, 
PUSH 
RCALL 
POP 
SETLC 
APDSP 
INTSPC 
APDSP 
APDSP 
AEQLC 


VEQLC - 


LocsP 
GETLG 
ACOMPC 


APDSP 


APDSP _ 


GETDC 
VEQLC 
VEQLC 
RCALL 
GETSPC 
APDSP 
BRANCH 


' LOCSP 


GETLG 
SUM 
ACOMPC 


APDSP 
APDSP 
APDSP 
MSTIME 
SUBTRT 
INTSPC 
APDSP 
APDSP 
STPRNT 
BRANCH 


INTSPC 
BRANCH 


LOCSP 
BRANCH 


PROC 
SETAC 
BRANCH 


APDSP 
MOVD 
DECRA 
INTSPC 
APDSP 
APDSP 
LOCSP 
APDSP 
APDSP 


FNVLCL, 1 


XPTR,IND, »FAIL 


XPTR 


- ZPTR,VARVAL, ,- FAIL 
- XPTR 


TRACSP,0 


TRACSP, TRSTSP 
XSP, STNOCL 
TRACSP, XSP 
TRACSP, COLSP | 
FNVLCL, 0, ,FNEXT1 
XPTR,S,DEFDT 


XSP,XPTR 
TCL, XSP 


Restore system descriptors 
E3.3.1 


greene nue tfaerenrracmnnomninatemmenteninnenen HE 


Tracing procedures 

Note entry 

Get variable to be traced 
Save name 

Get tag 

Restore variable 

Clear specifier 

Append trace message 
Convert &STNO to string 
Append &STNO 

Append colon 

Check entry indicator 
Is variable a string? 
Get specifier 

get Length 


TCL, BUFLEN, VXOVR, VXOVR 


TRACSP, XSP 
TRACSP, BLEQSP 
YPTR, XPTR,DESCR 
YPTR,»Se¢eTRV 
YPTR,I,,TRI 
XPTR, DTREP, YPTR 
XSP,XPTR,0O 
TRACSP, XSP 


TRPRT 


XSP,YPTR 
SCL, XSP 


TCL, TCL, SCL 


Check for excessively long name 
Append name of variable 
Append * = * 

Get value of traced variable 

Is it STRING?. 

Is it INTEGER? 
Else get data type representation 
Get specifier 

Append value 

Join common processing 


Get specifier 
Get length 
Compute total length 


TCL, BUFLEN, VXOVR, VXOVR 


TRACSP,QTSP 


YPTR,YPTR, ETMCL 


XSP,YPTR 


TRACSP, ETIMSP 
TRACSP, XSP 
IOKEY, OUTBLK, TRACSP 


RTNUL3 


XSP, YPTR 
TRI2 


XSP,ZPTR 
VALTR1 


VALTR 
FNVLCL, 0 
VALTR2 


TRACSP,TRLVSP 


XCL, LVLCL 
XCL, 1 
XSP,XCL 


TRACSP, XSP 
TRACSP, BLSP 
XSP,RETPCL 
TRACSP, XSP 
TRACSP, OFSP 


Check for excessively long message 
Append quote 
Append string 

Append quote 

Get time 

Compute time in interpreter 
Convert to STRING 

Append time message 

Append time 

Print trace message 

Return 


Convert INTEGER to STRING 
Join processing 


Get specifier for tag 
Join processing 


Return tracing procedure 
Note entry 
Join processing 


Append level message 
Copy &FNCLEVEL 
Decrement 

Convert to STRING 

Append function level 
Append blank 

Get specifier for return 
Append return type 
Append ‘' OF * 
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00004105 


- 00004106 


00004107 
00004108 
00004109 
00004110 


000041142 
00004113 
00008114 


00004116 
00004121 
00004122 
00004123 
00004128 
00004125 
00004126 
00004127 
000048128 
00008129 
00004130 
00008131 
00004132 
00004133 
00004138 
00004135 
00004136 
00004137 
00004138 
00004139 
00004180 
00004141 
00004142 
00004143 
00004188 
00004185 
00004145 
00004187 
00004188 
00004149 
0000461590 
00004151 
00004152 
00004153 
000C4 154 
000048155 
00004156 
00004157 
00004158 
000048159 
00004160 
00004161 
00004162 
00004163 
00004164" 
00008165 
00008166 
000041467 
00004168 
00004169 
00008170 
00004171 
00004172 
00004173 
000041474 
00004175 
00004176 
000048177 
00004178 
00008179 
00004180 
000048181 
000048182 
000048183 
00004184 
00004185 
00004186 


Seed 


m 
FNEXT2 


DEQL RETPCL, FRETCL, VALTR3 

Check for FRETURN 
LocsP XSP,XPTR Get specifier for function name 
GETLG TCL,XSP Get length 
ACOMPC TCL, BUFLEN, VXOVR, VXOVR 

Check for excessively long string 
APDSP TRACSP, XSP Append name of function 
BRANCH TRPRT Join common processing 

FTRACE call trace 
PROC VALTR Note entry 
SETAC FNVLCL,0 Restore function name 
POP _XPTR Join common processing 
BRANCH VALTR4 
OUTPUT OUTPUT, PRTOVF Print error message 
BRANCH RTNUL3 Return 
nnn 

TITLE ‘other Operations‘ 
Assignment 
PROC ° X Y 
INCRA OCICL,DESCR Increment offset in object code 
GETD XPTR,OCBSCL, OCICL Get object code descriptor 
TESTF XPTR, FNC, , ASGNC Test for function descriptor 
VEQLC XPTR,K, ,ASGNIC Check for keyword subject 
INCRA OCICL,DESCR Increment offset in object code 
GETD YPTR,CCBSCL,OCICL Get object code descriptor 
TESTF YPTR,FNC, ,ASGNCV Test fcr function descriptor 
AEQLC INSW,0,,ASGNV1 Check &INPUT 
LOCAPV ZPTR,INATL, YPTR,ASGNV1 

Look for input association 
GETDC ZPTR, ZPTR,DESCR Get input association descriptor 
RCALL YPTR, PUTIN, (ZPTR,YPTR) , (FAIL, ASGNVV) 
GETDC YPTR, YPTR, DESCR Get value 
PUTDC XPTR,DESCR,YPTR Perform assignment’ 
AEQLC OUTSW,0,,ASGN1 Check G60UTPUT 
LOCAPV ZPTR,OUTATL, XPTR,ASGN1 

Look for output association 

GETDC._ ZPTR, ZPTR,DESCR Get output association descriptor 
RCALL ,PUTOUT, (ZPTR, YPTR) Perform output 
ACOMPC ‘TRAPCL,0,,RTNUL3, RTNUL3 

Check &TRACE 
LOCAPT ATPTR, TVALL, XPTR, RTNUL3 

Look for VALUE trace 
RCALL ,» TRPHND, ATPTR, RTNUL3 £3.3.1 
RCALL XPTR, INVOKE, (XPTR) , (FAIL, ASGNV, NEMO) 
PUSH XPTR Save subject of assignment 
RCALL YPTR, INVOKE, (YPTR) , (FAIL, ASGNVP) 
POP XPTR Restore subject. 
BRANCH ASGNVV 
POP XPTR Restore subject 
BRANCH ASGNVN 
PUSH XPTR Save subject of assignment 
RCALL YPTR, INTVAL,, (FAIL,ASGNCJ) 


X Y (concatenation) 


PROC 
RCALL 
DEQL 
DEQL 
VEQLC 
VEQLC 
VEQLC 
VEQLC 
VEQLC 
RCALL 
MOVBLK 


td 


/XYARGS,, FAIL 


SQURCE LISTING 


Get integer value for keyword 


X Y (concatenation) 


XPTR,NULVCL, ,RTYPTR If 
YPTR,NULVCL,,RTXPTR If 


XPTR,S, CONS Is 
XPTR,P, ,CONS Is 
XPTR,1I,,CONST Is 


XPTR,R, ,CONSR Is 
XPTR,E,INTR1 Is 


TPTR, BLOCK, STARSZ 


Get two arguments 


first is null, return second 
second is null, return first 
first STRING? 

first PATTERN? 

first INTEGER? 

first REAL? 

first EXPRESSION? 


Allocate block for pattern 


TPTR,STRPAT,STARSZ Set up pattern for. expression 


00004187 
00004188 
00004189 
00004190 
00008191 
00004192 
00004193 
000041948 
00004195 
00004196 
09004197 
00004198 
00004199 
00004200 
06004201 
00008202 
00004203 
00004204 
00004205 
00004206 
00004207 
00004208 
00004209 
00004210 
00004211 
00004212 
00004213 
00004214 
00004215 
00004216 
00004217 
00004218 
00004219 
00004220 
00004221 
00004222 
00004223 
00008224 
00004225 
00004226 
00004227 
00004228 
00004229 
00004230 
000048231 
00004232 
00004233 


00004235 
00004236 
00004237 
000048238 
00004239 
on004K2KeC 


“90004241 


00008282 
00004243 
000048244 
000046245 
00008246 
00008247 
00004248 
00004249 | 
000048250 
00004251 
00004252 
00004253 
00008254 
09004255 
00004256 
00004257 
00004258 
00004259 
00004260 
00004261 
00004262 
00004263 
00004264 


PUTDC TPTR, 4*DESCR, XPTR Insert pointer to expression 
MOVD XPTR,TPTR Set up as first argument 
BRANCH CONS 

* 

CONGR REALST REALSP,XPTR Convert REAL to STRING 

SETSP XSP,REALSP Set up specifier 

RCALL XPTR,GENVAR, XSPPTR,CONS 

* : Generate variable 

* : 

CON4I INTSPC ZSP,XPTR Convert INTEGER to STRING 
RCALL XPTR,GENVAR, (ZSPPTR) 

* Generate variable 

CON5 VEQLC YPTR,S, CON? Is second STRING? 
VEQLC YPTR,P, CON? Is second PATTERN? 
VEQLC YPTR,I,,/CONSI Is second INTEGER? 
VEQLC YPTR,R,,CONSR Is second REAL? 
VEQLC YPTR,E, INTR1 | Is second EXPRESSION? 
RCALL TPTR, BLOCK, STARSZ Allocate block for pattern 
MOVBLK TPTR,STRPAT,STARSZ Set up pattern for expression 
PUTDC TPTR, 4*DESCR,YPTR Insert pointer to expression 
MOVD YPTR,TPTR Set up as second argument 
BRANCH CON? Join processing 

* 

CON5R REALST REALSP,YPTR Convert REAL to STRING 
SETSP YSP,REALSP Set up sepcifier 
RCALL YPTR, GENVAR, YSPPTR,CON7 

* Generate variable 

* 

CONSI INTSPC ZSP,YPIR Convert INTEGER to STRING 

; RCALL YPTR, GENVAR, (ZSPPTR) 

* Generate variarle 

CON7 SETAV DICL,XPTR Get data type of first 
MOVV DTCL,YPTR - Get data type of second 
DEQL DTCL, VVDTP, ,CONVV Check for STRING-STRING 
DEQL DTICL, VPDTP, , CONVP Check for STRING~PATTERN 
DEQL DTCL, PVDTP, , CONPV Check for PATTERN-STRING 
DEQL DTCL, PPDTP, INTR1,CONPP 

* Check for PATTERN-PATTERN 

* 

CONVV LOCSP XSP,XPTR Specifier for first string 
LOCSP Y¥SP,YPTR Specifier for second string 
GETLG XCL, XSP Length of first string 
GETLG Y¥CL,YSP Length of second string 
SUM XCL,XCL,YCL Total length 
ACOMP XCL,MLENCL, INTRS Check against &MAXLNGTH 
RCALL ZPTR, CONVAR, (XCL) Allocate space for string 
LOCSP TSP,ZPTR Get specifier to allocated space 
SETLC TSP,0 Clear length 
APDSP TSP, XSP Move in first string 
APDSP TSP,YSP : Append second string 
BRANCH GENVSZ Generate variable 

* 

CONVP LOCSP TSP,XPTR Specifier to string 
GETLG TMVAL, TSP Get length of string 
RCALL TPTR, BLOCK, LNODSZ Allocate block for pattern 
MAKNOD XPTR,TPTR,TMVAL, ZEROCL,CHRCL,XPTR 

* Construct pattern 

CONPP GETSIZ XSIZ,XPTR Get size of first pattern 

GETSIZ YS1IZ,YPTR Get size of second pattern 
SUM TSIZ,XS1IZ,YSIZ Compute total size required 
SETVC TSIZ,P Insert PATTERN data type 
RCALL TPTR, BLOCK, TSIZ Allocate block for new pattern 
MOVD ZPTR, TPTR Save copy to return 
LVALUE TVAL,YPTR Get least value for second pattern 

' CPYPAT TPTR,XPTR, TVAL, ZEROCL,XSIZ, XSIZ 

7 Copy in first pattern 
CPYPAT TPTR,YPTR, ZEROCL, XSIZ, ZEROCL, YSIZ 

* Copy in second pattern 
BRANCH RTZPTR Return pattern as value 

% 

CONPV LOCSP TSP, YPTR Get specifier to string 
GETLG TMVAL, TSP Get length of string 
RCALL TPTR, BLOCK, LNODSZ Allocate block for pattern 
MAKNOD YPTR,TPTR,TMVAL, ZEROCL,CHRCL, YPTR 

* Construct pattern for string 

‘ BRANCH CONPP Join common processing 

Sh ar a Pe a ee cate eee Oe ate eet ne SE EE eA | 


SOURCE LISTING 
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00008265 
00004266 
00004267 
00004268 
00004269 
00004270 
00004271 
00004272 
000048273 
00C08274 
00004275 
00004276 
00004277 
000046278 
00004279 
00004280 
00004281 
00004282 
00004283 
00004284 
00004285 
00008286 
00004287 
00004288 
00004289 
00008290 
00008291 
00004292 
00004293 
00004294 


00004295 


00004296 
00004297 
00004298 
00004299 
000043090 
00004301 
00004302 
00004303 
00004304 
00004305 
00004306 
00004307 
00004308 
00004309 
00004310 
00004311 
00004312 
00004313 
00008314 
00004315 
00004316 
00004317 
00008318 


00004319, 


00004320 
00004321 
00004322 
00004323 
00004324 
00004325 
00004326 
00004327 
09004328 
00004329 
00004330 
00004331 
00004332 
00004333 
00004334 
00004335 
00004336 
00004337 
00004338 
00004339 
00004340 
00008341 
00004342 


(= 


wean! 


Bern, 


© 


IND 


Indirect Reference 
PROC e $X 
RCALL XPTR, ARGVAL, , FAIL Get argument 
VEQLC XPTR,S,, INDV STRING is acceptable 
VEOLC XPTR,N,,RTXNAM NAME can be returned directly 
VEQLC _XPTR,I, »GENVIX Convert INTEGER 
VEQLC XPTR,K,INTR1,RTXNAM KEYWORD is like NAME 
AEQLC XPTR,0,RTXNAM, NONAME : 

Be sure string is not null 

A 

Keywords 
PROC ° . 6X 
INCRA OCICL, DESCR Increment offset 
GETD XPTR, OCBSCL, OCICL Get object code descriptor 
TESTF XPTR, FNC, ,KEYC Check for function 
LOCAPV XPTR,KNATL, XPTR, KEYV , 

Look up X on unprotected list 
SETVC XPTR,K Set KEYWORD (NAME) data type 
BRANCH RTXNAM Return by name 
LOCAPV ATPTR, KVATL, XPTR, UNKNKW 

Look up X on protected List 
GETDC ZPTR, ATPTR, DESCR Get value 
BRANCH RTZPTR | Return by value 
RCALL XPTR, INVOKE, (XPTR) , (FAIL, KEYN, NEMO) 

Evaluate computed keyword 
PROC KEYWRD Procedure to get keyword for trace 
POP XPTR Restore argument 
BRANCH KEYN 

Join common processing 
ie LL 

Literal Evaluation 
PROC e “xe 
INCRA OCICL, DESCR Increment offset 
GETD ZPTR, OCBSCL,OCICL Get object code descriptor 
BRANCH RTZPTR Return value 


SOURCE LISTING 


Unary Name Operator 


PROC 
INCRA 
GETD 
TESTE 
RCALL 


Value As 


PROC 
MOVD 
ACOMP 


SUM 
GETSPC 
GETDC 


GETLG 
ACOMP 
VEQLC 
VEQLC 
RCALL 


PUTDC 


° X 

OCICL, DESCR Increment offset : 
ZPTR,OCBSCL,OCICL Get object code descriptor 
ZPTR, FNC, RTZPTR fest for function 


ZPTR, INVOKE, ZPTR, (FAIL, RTZPTR, NEMO) 


signment in Pattern Matching 


e 
TCL, NHEDCL 
TCL, NAMICL, INTR13,RTN2 
Check for end 


TPTR,NBSPTR, TCL Compute address 
TSP, TPTR, DESCR Get specifier 
TVAL, TPTR, DESCR*SPEC 
get variable 
XCL, TSP Get length 
XCL, MLENCL, INTR8 Check &MAXLNGTH 
TVAL, Es» » NAMEXN Is Variable EXPRESSION? 
TVAL,K, ,NMDIC Is variable KEYWORD? 


VVAL, GENVAR, (TSPPTR) 
Generate string 


TVAL, DESCR, VVAL Assign value 
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00004343 
000048344 
00004345 
00004346 
000043497 
00004348 
00004349 
00004350 
00004351 
00004352 
00004353 
00004354 
00004355 
00004356 
00004357 
00004358 
00004359 
00604360 
00004361 
00004362 
00004363 
00004364 
00004365 
00004366 
00004367 
00004368 
00004369 
00004370 
000C4271 
00004372 
000048373 
00004374 
00004375 
00004376 
00004377 
00004378 
00004379 
00004380 
00004381 
00004382 
00004383 
00004384 
00004385 
00004386 
00004387 
00004388 
00004389 
00004390 
00004391 
00008392 
00004393 
00004394 
00004395 
00004396 
00004397 
00004398 
00004399 
00004400 
00004401 
00004402 
00004403. 
00004804 
00004405 
00004406 
00004407 
00004408 
00008409 
00004410 
00004411 
00008412 
00004413 
ON0048414 
00004415 
00008416 
00004417 
00004418 
00004419 
00008420 


AEQLC 
LOCAPV 


GETDC 
RCALL 
NMD3  ACOMPC 
LOCAPT 


PUSH 

MOVD 

RCALL 
* 

POP 
NMD2 INCRA 

BRANCH 
* 


NMDIC SPCINT 
bf 


NAMEXN RCALL 
* 


* Unevaluated Expression 
* 
STR PROC e *X 
SUM Z2PTR, OCBSCL, OCICL Compute position in code 
RCALL ,CODSKP, (ONECL) Skip one nest . 
SETVc ZPTR,E Insert EXPRESSION data type 
BRANCH RTZPTR Return pointer to code 
a a 
TITLE "Other Predicates' 
* 
* DIFFER (X, Y) 
* 
DIFFER PROC é DIFFER (X,Y) 
RCALL eXYARGS, , FAIL Evaluate arguments 
DEQL XPTR, YPTR, RETNUL, FAIL 


i a lg 


* IDENT (X, 

* 

IDENT PROC 
RCALL 
DEQL 


LGT (X, ¥) 


* 

* 

* 

LGT PROC 
RCALL 
. PUSH 
RCALL 
POP 
AEQLC 
AEQLC 
LOCSP 
LOCSP 
LEXCMP 


* 

* 

* < 

NEG PROC 
PUSH 
RCALL 
POP 
RCALL 


SOURCE LISTING 


OUTSW, 0, ,NMD3 Check SOUTPUT 

2PTR, OUTATL, TVAL, NMD3 , - ‘ 
Look for output association 

ZPTR,ZPTR, DESCR Get association 


ePUTOUT, (ZPTR,VVAL) Perform output 
TRAPCL,0,,NMD2,NMD2 Check &TRACE 
ATPTR, TVALL, TVAL,NMD2 

Look for VALUE trace 
(TCL,NAMICL,NHEDCL) Save state , 
NHEDCL, NAMICL Set up new name list 
« TRPHND, ATPTR 

Perform trace 
(NHEDCL,NAMICL,TCL) Restore state 
TCL, DESCR#+SPEC Move to next name 
NMD1 Continue 


VVAL,TSP,INTR1,NMD4 Convert to INTEGER 


-TVAL, EXPEVL, TVAL, (NMD2,NMD5, NEMO) 


Evaluate expression 


Compare them 


Y) 
e IDENT (X,Y) 
#XYARGS, , FAIL Evaluate arguments 


XPTR,YPTR, FAIL, RETNUL 
Compare arguments 


E3.3.1 


as * 
x ; : 


’ LGT (X,Y) 

XPTR,VARVAL, , FAIL Evaluate first argument 

XPTR Save first argument 

YPTR,VARVAL,, FAIL Evaluate second argument 

XPTR Restore first argument 

XPTR,0,, FAIL Null is not greater than anything 


YPTR,0,,RETNUL Similarly for second argument 
XSP,XPTR Get specifier to first argument 
YSP,YPTR Get specifier to second argument 


XSP,YSP,RETNUL, FAIL, FAIL 
Compare lexically 


Unary Negation Operator 


e aX 
(OCBSCL,OCICL) Save object code position 
eARGVAL, » (, FAIL) Fail on success 
(OCICL,OCBSCL) 
« CODSKP, (ONECL) , RETNUL 

' Skip argument and return 
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Restore object code position 


00004421 
00004422 
00004423 
00004424 
00004425 
00004426 
00004427 
00004428 
00008429 
00004430 


00004432 
00004433 
00004434 
00004435 
00004436 
00004437 
00004438 
00004439 
00004440 
00004441 
00c044y2 
00004443 
00008444 
00004445 


- 00004446 


00004447 
00004448 
00004449 
00004450 
000048451 
00004452 
00004453 
00004454 
00004455 
00004456 
00004457 
00004458 
00004459 
00004460 
00004461 
00004462 
00004463 
00004464 
00008465 
00004466 
00008467 
00004468 
00004469 
00004470 
00008471 
00008472 
00004473 
00004474 
00004475 
00004476 
00008477 
00004478 
00004479 
00004480 
00004481 
00004482 
00004483 
00004484 
00004485 
90004486 
00004487 
00004488 
00004489 
000048490 
00004491 
00004492 
00004493 
00004494 
00004495 
00004496 
00004497 
00008498 


co f 


— 


hy 
seagdeutl* 


© 


godt, 


Ned 


a einer ME! 


APPLY 


* 


* 


FIELDS 


* 
ARG1 


* 


ARG2 
* 


SOURCE LISTING 


Unary Interrogation Operator 


PROC 
RCALL 


TITLE 


, 2X 
e ARGVAL, , (FAIL, RETNUL) 
Evaluate argument 


*Other Functions' 


APPLY (Fy Ay» ++ sAn) 


PROC 
SETAV 
DECRA 
ACOMPC 
PUSH 


LOCAPV 


GETDC 
SETVA 
RCALL 
MOVD 
BRANCH 


‘INCL, XPTR,DESCR : 


P APPLY (F,Ay 90s eAn) 

XCL, INCL Get count of arguments 

XCL, 1 Decrement to skip function name 
XCL, 1, ¢,ARGNER , E3.3.3 
XCL Save argument count 

XPTR,VARVAL, , FAIL Get function name 

xcL Restore argument count 

XPTR, FNCPL, XPTR, UNDF 


Locate function 

Get function descriptor 
INCL, XCL : 
ZPTR, INVOKE, (INCL), (FAIL, , RTZPTR) 
XPTR, Z2PTR Return by name 
RTXNAM, = 


ARG(F,N), FIELD(F,N), and LOCAL (F,N) 


BRANCH 


PROC 
PUSH 


RCALL 
PUSH 

RCALL 
ACOMP 


POP 
LOCAPV 


GETDc 
GETDC 
GETDC 
POP 
AEOL 
MULTC 
INCRA 
SETAV 
MULTC 
AEQLC 
INCRA 
MOVD 
BRANCH 


° ARG (F,N) 
(ONECL, DEFCL) Save ARG indicators 
ARG1 : . Join main processing 
ARG Procedure used for CALL tracing 
(XPTR, XCL) Restore arguments 
(ONECL, DEFCL) Save indicators 
ARG2 Join processing 
ARG LOCAL (F,N) . 
(ONECL, ZEROCL, DEFCL) 

Save LOCAL indicators 
ARG1 Join main processing 
ARG FIELD (F,N) 
(ZEROCL, ZEROCL, DATCL) 


Save FIELD indicators 
XPTR, VARVAL, , FAIL Get function name 


XPTR Save function name 
XCL,INTVAL, » FATL Get number 
ZEROCL, XCL, FAIL, FAIL 

Verify positive number 
XPTR Restore function name 


XPTR, FNCPL, XPTR, INTK30 
Look for function descriptor 


XPTR,XPTR, DESCR | Get function descriptor _ 
YCL,XPTR,0 Get procedure descriptor 
XPTR,XPTR, DESCR Get definition block 

(ZCL, ALCL) Restore indicators 

‘YCL,ZCL, INTR30 Check procedure type 

XCL, XCL, DESCR Convert number to address units 
XCL, 2*DESCR Skip prototype information 
YcL,YCL Get argument count 

YCL, YCL, DESCR Convert to address units 
ALCL,0,,ARG4 Check funcion type 

YCL, 2*DESCR Increment for heading 

ZCL, YCL Get working copy 

ARG5 Branch to continue processing 
ZCL,XPTR Get size of block 


ALCL Restore entry indicator 
ALCL, 0, ARGS Check entry type 


XCL, XCL,YCL Skip formal arguments 
XCL, ZCL, FAIL Check number in bounds 
ZPTR,XPTR,XCL Get the desired name 
RTZPTR Return name as value 
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Insert actual number of arguments 


00004899 
000c4H SCO 
00004501 
00004502 
00004593 
00004504 
00004505 
00004506 


§ 00004507 


00004508 
00008509 
oo00asm 
00004511 
0000485t2 
00006512 


ON00g nts 
OOOOGS ss, 
060048517 
00004518 
ocoeast19 
000048520 
00005521 
000048522 
00008523 
00008524 
00004525 
00004526 
00004527 


. 00008528 


000046529 
00004539 
00004531 
00004532 
00004533 
000048534 
00004535 
00004535 
00004537 
00004538 
000045539 
00004540 
00004541 
000048542 
00004543 
o0ocas4a 
00004545 
00004546 
00004547 


— 000045468 


000048549 
00004550 
06004551 
00004552 
00004553 
00004554 
00004555 
006004556 
00004557 
00004558 
00004559 
00004560 
00004561 
00004562. 
C0104563 
00004564 
00004565 
00004566 
00004567 
000048568 
00004569 
00004570 
00004571 
00004572 
00004573 
00004574 
00004575 
00004576 


CNVRT 


CLEAR () 

PROC : CLEAR () 

RCALL 7 ARGVAL, , FAIL Get rid of argument 

SETAC DMPPTR, OBLIST-DESCR Initialize bin pointer 

ACOMP DMPPTR,OBEND, RETNUL Check for end 

INCRA DMPPTR, DESCR Update for next bin 

MOVD YPTR, DMPPTR Get working copy 

GETAC YPTR, YPTR, LNKFLD Get next variable 

AEQLC YPTR,0O,,CLEAR1 Check for end of chain 

PUTDC YPTR, DESCR, NULVCL Assign null value 

BRANCH CLEAR2 Continue 
Me nt ernst ttiannaninrnraneeamammennreemnneane 

COLLECT (N) 

PROC ° COLLECT (N) 

RCALL XPTR, INTVAL, , FAIL Get number of address units required 

ACOMPC. XPTR,0,,, LENERR Verify positive integer 

RCALL ZPTR,GC, (XPTR) ,FAIL Call tor storage regeneration 

SETVC ZPTR,I Set INTEGER data type 

BRANCH RTZPTR Return amount collected 
i ent etnennaeestennas HE 

COPY (X) 255 

PROC Pee ae COPY (X) 

RCALL XPTR, ARGVAL, » FAIL Get object to copy 

VEQLC XPTR,S,,INTR1 - STRING cannot be copied 

VEQLC XPTR,I,,INTR1 ° INTEGER cannot be copied 

VEQLC XPTR,R,,INTR1 REAL cannot be copied 

VEQLC XPTR,N,,INTR1 NAME cannot be copied 

VEQLC  XPTR,K,,INTR1 KEYWORD (NAME) cannot be copied 

VEQLC XPTR,E, ,INTR1 EXPRESSION cannot be copied 

VEQLC XPTR,T, ,INTR1 TABLE cannot be copied 

GETSIZ XCL,XPTR Get size of object to copy 

MOVV XCL, XPTR Insert data type 

RCALL 2ZPTR,BLOCK,XCL Allocate block for Copy 

MOVBLK ZPTR,XPTR,XCL Copy contents 

BRANCH RTZPTR Return the copy 
a Oe Oe a Rae re AE ENE Derr ee Ere nN Pe nn 

CONVERT (X, T) 

PROC . ; CONVERT {X,T) 

RCALL ZPTR, ARGVAL, » FAIL Get object to be converted 

PUSH ZPTR Save object 

RCALL YPTR,VARVAL,.FAIL ~ Get data type target 

POP ZPTR Restore “object 

LOCAPVY XPTR,DTATL, YPTR, INTR1 

Look for data type code 

GETDC XPTR,XPTR, DESCR Get code 

SETAV DTCL,Z2PTR Insert. object data type 

MOVV DTCL,xXPTR Insert target data type 

DEQL DTCL,IVDTP, ,CNVIV Check for INTEGER~STRING 

DEQL DTCL,VCDTP,,RECOMP Check for STRING-CODE 

DEQL DTCL, VEDTP, ,CONVE 

DEQL DICL, VRDTP, , CONVR Check for STRING~REAL 

DEQL DTCL,RIDTP, , CONRI Check for REAL~INTEGER 

DEQL DTCL, IRDTP, ,CONIR Check for INTEGER-REAL 

DEQL DTCL, VIDTP, , CNVVI CHeck for STRING-INTEGER 

DEQL DTCL,ATDTP, ,CNVAT Check for ARRAY-TABLE 

DEQL DTCL,TADTP, ,CNVTA Check for TABLE~ARRAY 

VEQL ZPTR,XPTR, »RTZPTR 

VEQLC XPTR,S, FAIL, CNVRTS 

Check for idem-conversion 

SETAC SCL, 1 Note STRING-CODE conversion 

LOCSP TEXTSP, ZPTR Set up global specifier 

GETLG OCALIM, TEXTSP 

AEQLC OCALIM,0, , RECOMN 

MULTC OCALIM, OCALIM,DESCR Convert to. address units 

INCRA OCALIM, 6*DESCR Leave room for safety 


SOURCE _ LISTING 
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00004577 
00004578 
00004579 
00004580 
00004581 
00004582 
00004583 
00004584 
00004585 
00004586 
00004587 
00004588 
00004589 
00004590 
00008591 
00004592 
00004593 
00004594 
00004595 
00004596 
00004597 
00004598 
00004599 
00004600 
00004601 
00004602 
00004603 
00004604 


00008605 


00004606 
00004607 
00004608 
00004609 
00004610 
00004611 
00004612 
00004613 
00004614 
00004615 
00004616 
00004617 
00004618 
00004619 
00004620 
00004621 
00004622 
00004623 
00004624 
00004625 
00004626 
00004627 
00004628 
00004629 
00004630 
000048631 
00004632 
00004633 
00004654 
000048635 


00004636: 


00004637 
000046638 
00004639 
00004640 
00004641 
00004642 


00004643 


00008644 


00004647 
000048648 
00008649 
00004650 


00004653 
00004654 


SETVC 
RCALL 
SUM 
DECRA 
SETAC 
SETAC 
PUSH 
SELBRA 
RECOM1 LEQLC 
- RCALL 
+ - “ 
RECOM2 SETAC 
RECOMQ INCRA 
; PUTD 
POP 
RECOMZ SUM 
* 
RCALL 
SETAC 
SETAC 
ZERBLK 
SELBRA 


« 
RECOMF SETAC 
BRANCH 


bd 
RECOMN SETSP 
BRANCH 


CODER PROC 
RCALL 


CONVE PROC 
SETAC 
BRANCH 


CONVEX RCALL 
LEQLC 
RCALL 
MOVD 
SETVC 
SETAC 
BRANCH 


CONVR LOCSP 
SPCINT 
SPREAL 


CONIR INTRL 
BRANCH 


* 
CONRI RLINT 
CNVIV RCALL 


CNVVI LOcsP 
SPCINT 
SPREAL 


CNVRTS RCALL 
GETSPC 
BRANCH 


CNVTA MOVD 
MOVD . 
CNVTA7 GETSIZ 
MOVD 
MOVD 
DECRA 
CNVTA1 GETD 
DEQL 
INCRA 
CNVTA2 AEQLC 


OCALIM,C 


SOURCE _ LISTING 


Insert CODE data type 


CMBSCL, BLOCK, OCALIM Allocate block for object code 
OCLIM, CMBSCL, OCALIM Compute end "- 


OCLIM, 6*DESCR 
CMOFCL, 0 zero offset 
ESAICL,0O Zero error count 
CMBSCL Save block pointer 
SCL, (, CONVEX) Select correct procedure 
TEXTSP, 0, sRECOM2 Is string exhausted? 
»CMPILE, , (RECOMF, ,RECOM1) 

Compile statement 
SCL, 3 Set return switch 
CMOFCL, DESCR Increment offset 
CMBSCL, CMOFCL,ENDCL Insert END function 
ZPTR Restore pointer to code block 
CMBSCL, CMBSCL, CMOFCL 

Compute used portion ~° block 

e SPLIT, (CMBSCL) Split off remainder 
OCLIM,0 . Clear limit pointer 
LPTR,0 Clear label pointer 
COMREG, COMDCT Zero compiler descriptors 


SCL, (FAIL, INTR10,RTZPTR) 


Select return 


SCL, 1 Set failure return 
RECOMQ Rejoin processing 
TEXTSP, BLSP E3.1.5 
RECOMT E3.1.5 
E3.1.5 
CNVRT CODE (S) 
ZPTR,VARVAL, » (FAIL, RECOMP) 
; ; Get argument 
CNVRT Convert to EXPRESSION 
SCL, 2 Set switch . 
RECOMJ Join common program 
FORMND, EXPR, , FAIL Compile expression . 
TEXTSP,0,FAIL verify complete compilation 
7 TREPUB, FORMND Publish code tree 
' ZPTR, CMBSCL E3.1.6 
ZPTR,E Insert EXPRESSION data type 
SCL, 3 Set return branch 
RECOMZ Join common program 
ZSP,ZPTR Get specifier 
ZPTR,ZSP,,CONIR Try conversion to INTEGER first 
ZPTR,ZSP, FAIL, RTZPTR 
Convert to REAL 
ZPTR,ZPTR Convert INTEGER to REAL 
RTZPTR Return value 
ZPTR,ZPTR, FAIL, RTZPTR 


Convert REAL to INTEGER 


ZPTR, GNVARI, ZPTR, RTZPTR 


ZSP,ZPTR 


ZPTR,ZSP, ,RTZPTR 


Convert INTEGER to STRING 


Get specifier 
Convert STRING to INTEGER 


ZPTR,ZSP,FAIL,CONRI Try conversion to REAL 


XPTR, DTREP, ZPTR Get data type representation 
ZSP,XPTR,0 Get specifier 

GENVRZ Go generate variable 

YPTR,ZPTR £3.2.3 
YCL, ZEROCL £3.2.3 
XCL,YPTR E3.2.3 
WPTR, YPTR £3.2.3 
ZCL, XCL £3.2.3 
XCL, 3*DESCR E3.2.3 
WCL,WPTR,XCL Get item value 

WCL,NULVCL,,CNVTA2 Check for null value 

YCL, 1 Otherwise count item 

XCL, DESCR, ,CNVTA6 E3.2.3 
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00004u65% 
000048655 
00004557 
00004658 
00004659 
00004660 
00008661 
00004662 
000045653 
06004664 
OO0C4 54S 
0000L646h 
00004547 
00004663 
000094659 
ODOISa 7) 
oonn4s6?1 
0000467 2 
60094673 
OON0Kb6TEH 
00004675 
000048676 
00904677 
00004678 
00004679 
00004680 
000086381 


00004682 
00004683 
00004684 
00004685 
00004686 
00004687 
00008688 
00004689 
00004690 
00004691 
00004692 


00904694 


-06004695 


00008696 
00004697 
00004698 
00004699 
00008700 
00004701 
00004702 
00008703 
00004704 
00004705 
00004706 
00004707 
00004703 
00004709 
00008710 
00004711 
00904712 
00004713 
00008714 
00004715 
00004716 
00008717 
00004718 
00004719 


00004724 
00004725 
00004726 


SQURCE_ LISTING 


DECRA XCL, 2*DESCR : Count down 00004728 
BRANCH CNVTA1 Process next item 00008729 
+ | 00004730 
CNVTA6 GETD YPTR,YPTR,ZCL ; £3.2.3 
AEQLC YPTR, 1,CNVTAT E3.2.3 : 
CNVTAY AEQLC YCL,0,,FAIL Fail on empty table : * 900004731 : 
MOVD WPTR, ZPTR E3.2.3 { , 
MULTC XCL, YCL, 2*DESCR Convert count to address units 00004732 ie 
INTSPC YSP,YCL Get prototype for size 00004733 
SETLC PROTSP,0 Clear specifier 00004734 
APDSP PROTSP, YSP Append length 00004735 
APDSP PROTSP, CMASP - Append .comma 00004736 
MOVD WCL, ZEROCL E3.1.1 ; 
SETAC WCL,2 set up 2 for second dimension 00004737 
INTSPC XSP,WCL Convert to string 00004738 
APDSP PROTSP,XSP Append 2 , 00004739 
' SETSP XSP, PROTSP Move specifier : 00004740 
RCALL TPTR,GENVAR, XSPPTR £3.5.2 
* ; Generate variable for prototype . 00004742 
MOVD ZCL,XCL Save size 00004743 
INCRA XCL,4*DESCR Increment for heading 00004g744 
RCALL ZPTR, BLOCK, XCL Get block for array 00008745 
SETVC ZPTR,A Insert ARRAY data type 00004746 
MOVD ATPRCL,TPTR . E3.5.2 
SETVA ATEXCL, YCL Insert First dimension in head 000048747 
MOVBLK ZPTR,ATRHD, FRDSCL Copy heading information ~ 00004748 
MOVD YPTR, ZPTR : Save copy of block pointer : 000048749 
MULTC YCL,YCL, DESCR Convert item count to address units 00004750 
INCRA YPTR, 5*DESCR Skip heading 00004751 
SUM TPTR, YPTR,YCL Compute second half position 00004752 
CNVTA8 GETSIZ WCL,WPTR - E3.2.3 
. DiCRA WCL, 2*DESCR ; : E3.2.3 
SUM WCL,WPTR,WCL . £3.2.3 
CNVTA3 GETDC TCL, WPTR, DESCR E3.2.3 
DEQL TCL, NULVCL, ,CNVTAS E3.2.3 
PUTDC TPTR,O,TCL E3.2.3 
MOVDIC YPTR,O,WPTR,2*DESCR - 00004756 
INCRA YPTR,DESCR Increment upper pointer 00004759 
INCRA TPTR, DESCR Increment lower pointer 00004760 
CNVTA5 INCRA WPTR, 2*DESCR ' 00004761 
AEQL WCL,WPTR, CNVTA3 j £3.2.3 
GETDC WPTR,WCL,2*DESCR E3.2.3 
AEQLC WPTR, 1,CNVTAS, RTZPTR _E3.2.3. “ ; 
*_ 00004763 
CNVAT GETDC XCL, ZPTR, 2*DESCR Get array dimensionality 00004764 
MOVD YPTR,ZPTR Save copy of array pointer 00004765 
AEQLC XCL,2,FAIL . Verify rectangular array 00004766 
GETDC XCL,ZPTR, 3*DESCR Get second dimension ; 000048767 
VEQLC XCL, 2, FATL ; Verify extent of 2 00004768 
GETSIZ XCL,ZPTR Get size of array block 000048769 
DECRA XCL, 2*DESCR : : E3.2.3 
RCALL XPTR, BLOCK, XCL ~. Allocate block for pair list 00004771 
SETVC XPTR,T . — ae E3.2.3 
GETDC YCL,ZPTR,4*DESCR E3.2.3 
MOVD ZPTR, XPTR E3.2.3 
PUTD XPTR,XCL,ONECL E3.2.3 
DECRA XCL,DESCR | £3.2.3 a 
MOVD. TCL, EXTVAL . ; E3.2.3 
INCRA TCL,2*DESCR _ -B322.3 
PUTD XPTR,XCL, TCL E3.2.3 
SETAV YCL,YCL ~ : E3.2.3 
MULTC YCL, YCL, DESCR E3.2.3 
INCRA YPTR, 5*DESCR E3.2.3 
SUM WPTR, YPTR, YCL E£3.2.3 
CNVAT2 MOVDIC XPTR,DESCR,WPTR,0 E3.2.3 
MOVDIC XPTR,2*DESCR,YPTR,0 £3.2.3 
* DECRA YCL, DESCR E3.2.3 
AEQLC YCL,0,,RTZPTR E3.2.3 
INCRA XPTR,2*DESCR Increment pair list pointer 00004786 
INCRA. WPTR , DESCR Increment lower array pointer 00008787 
INCRA YPTR, DESCR Increment upper array pointer 000048788 
BRANCH CNVAT2 Continue 00004789 
+ 00004790 
Bennet 90008791 
* 00004792 
* DATE () 00004793 
* 00004794 


DATE PROC e DATE () 00004795 


RCALL e ARGVAL, , FAIL Get rid of argument 
DATE ZSP Get the date 
BRANCH GENVRZ Go generate .the variable 
* 
in rr RE 
x 
* DATATYPE (X) 
* 
DT PROC DATATYPE (X) 
RCALL A2PTR, ARGVAL, » FAIL Get object 
MOVV DTICL, A2PTR Insert data type 
LOCAPT A3PTR,DTATL, DTICL,DTEXIN 
* Look for data type 
GETDC A3PTR,A3PTR, 2*DESCR Get data type name 
DETRTN RRTURN A3PTR,3 Return name 
x 
DIEXTN MOVD A3PTR, EXTPTR Set up EXTERNAL datz fF pe 
BRANCH DTRTN Return 
* 
Se cA ee Te a Te I ROS RPO AE EE IO tan Ne, 
* 
* DUMP (N) 
*x 
DMP PROC ® DUMP (N) 
RCALL XPTR, INTVAL,, FAIL Evaluate argument . 
AEQLC XPTR, 0, ,RETNUL No dump if zero 
DUMP PROC DMP End game dump procedure 
SETAC  WPTR,OBLIST-DESCR Initialize bin list Posnece 
DMPB ACOMP WPTR, OBEND, RETNUL Check for end 
INCRA WPTR, DESCR Increment pointer 
MOVD YPTR,WPTR Save working copy 
DMPA GETAC YPTR,YPTR, LNKFLD Get string structure 
AEQLC YPTR,O,,DMPB Check for end of chain 
GETDC XPTR,YPTR, DESCR Get value 
DEQL XPTR,NULVCL, , DMPA Skip null string values 
SETLC DMPSP,0 Clear specifier 
LOCSP YSP,YPTR Get specifier for variable 
GETLG YCL,YSP Get length 
ACOMPC YCL, BUFLEN, DMPOVR, DMPOVR 
* Check for excessive Yength 
APDSP DMPSP,YSP Append variable 
APDSP DMPSP, BLEQSP Append * = ¢ 
VEQLC XPTR,S,-DMPV STRING is alright 
VEQLC XPTR,1I,,DMPI Convert INTEGER 
RCALL A1PTR, DTREP, XPTR Else get representation 
GETSPC YSP,A1PTR,O Get specifier 
DMPX GETLG XCL, YSP Get length 
SUM YCL,YCL,XCL Get total 
ACOMPC YCL, BUFLEN, DMPOVR Check for excessive length 
APDSP DMPSP,YSP Append value 
BRANCH DMPRT Go print it 
* 
DMFV LOCSP YSP,XPTR ~ Get specifier 
GETLG XCL,YSP Get length 
SUM YCL,YCL,XCL Total length 
ACOMPC YCL, BUFLEN,DMPOVR Check for excessive length 
APDSP DMPSP,QTSP Append quote 
APDSP DMPSP, YSP Append value 
APDSP DMPSP, QTSP Append quote 
DMPRT STPRNT IOKEY,OUTBLK,DMPSP Print line 
BRANCH DMPA Continue 
* 
DMPI INTSPC YSP,XPTR Convert integer 
BRANCH DMPX Rejoin processing 
* 
DMPOVR OUTPUT OUTPUT, PRTOVF Print error message 
BRANCH DMPA Continue 
* 
DMK PROC ° Procedure to dump keywords 
OUTPUT OUTPUT, PKEYF Print caption 
GETSIZ xXCL,KNLIST Get size of pair list 
DMPK1 GETD XPTR, KNLIST, XCL Get name of keyword 
DECRA XCL, DESCR Adjust offset 
GETD YPTR, KNLIST, XCL Get value of keyword 
INTSPC YSP,YPTR Convert integer to string 
LocsP XSP,XPTR Get specifier 
SETLC DMPSP,0 Clear specifier 
APDSP DMPSP, AMPSP Append ampersand 


SOURCE LISTING 
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000047°6 
9000G797 
00004798 
00004739 
00904800 
00004801 
00004802 
00004803 
00004804 
00004805 
0090048045 
00004807 


- 00004808 


00004809 
00004819 
Qo008FT: 
OnnggFr Ty 
00008813 
00008814 
00004815 
00008816 
00004817 
00004818 
00004819 
00004820 
00004821 
00004822 
00004823 
00004824 
00004825 
00004826 
90094827 
00004823 
00004829 
00004830 
00004831 
90004332 
00004833 
00004834 
00004835 
00004836 
00004837 
000048838 
C0004839 
00004840 
00004841 
09004842 
00008843 
00004844 
00004845 
00004846 
00004847 
00004848 
00004849 
00004850 
00008851 
~00005852 
00004853 
00004854 
00004855 
00004856 
00004857 
00004858 
00004859 
00004860 
000048861 
00004862 
00004863 
000045864 
00004865 
00004866 
00004867 
00004868 
00005869 
00004870 
00004871 
00004872 
00004873 


a a I se 


UNCF 


DUPL (S,N) 

PROC ‘ 

RCALL XPTR,VARVAL, , FAIL 
PUSH XPTR 

RCALL YPTR,INTVAL,,FAIL 
POP XPTR 

ACOMPC YPTR,0,,RETNUL, FAIL 
LOCSP XSP,XPTR 

GETLG XCL,XSP 

MULT XCL, XCL, YPTR, INTRB 
ACOMP XCL,MLENCL, INTRS 
RCALL 2%PTR,CONVAR, XCL- 
LOCSP TSP,ZPTR 

SETLC TSP,0 

APDSP ‘TSP,XSP 

DECRA YPTR,1 

AEQLC 


OPSYN (Fy ¢F2,N) 

PROC , ; OPSYN (F,G,N) 

RCALL: XPTR, VARVAL, , FAIL Get object function . 

PUSH XPTR Save object function 

RCALL YPTR,VARVAL, , FAIL Get image function 

PUSH .YPTR Save image function : 
RCALL ZPTR,INTVAL,, FAIL Get type indicator : 
POP (YPTR, XPTR) Restore image and object function 
AEQLC XPTR, 0, , NONAME Object may not be null 

AEQLC ZPTR, 1,,UNYOP Check for unary definition 

AEQLC ZPTR,» 2, ,BNYOP Check for binary definition 

AEQLC ZPTR, 0, INTR3IO Check for function definition 

RCALL XPTR,FINDEX,XPTR Get function descriptor for object 
RCALL YPTR,FINDEX, YPTR E3.6.2 
MOVDIC XPTR,0O,YPTR,0 Move procedure descriptor pair 
MOVDIC XPTR,DESCR,YPTR, DESCR 

BRANCH RETNUL 

LOCSP XSP,XPTR Get specifier for image 

LEQLC XSP,1,UNAF Length must be 1 for operator 

SETSP Z2SP, PROTS? E3.5.3 
SETLC ZSP,0 E3.5.3 
APDSP ZSP,XSP 7 me E3.5.3 
APDSP 2SP, LPRNSP E3.5.3 
STREAM TSP, ZSP,UNOPTB, UNAF, UNAF E3.5.3 
MOVD XPTR,STYPE STYPE has function descriptor 

LOCSP YSP,YPTR Get specifier for image 

LEQLC YSP, 1, UNBF Length must be 1 for operator 

SETSP ZSP, PROTSP E3.5.3 
SETLC ZSP,0 E3.5.3 
APDSP ZSP,YSP E3.5.3 
APDSP ZSP,LPRNSP E3.5.3 
STREAM TSP,ZSP,UNOPTB, UNBF, UNBF E3.5.3 
MOVD YPTR,STYPE STYPE has function descriptor 
BRANCH OPPD Join to copy descriptors 

RCALL XPTR, FINDEX, XPTR Find definition of image 

BRANCH UNCF Join search for object 

LOCSP XSP, XPTR Get specifier for image 

LCOMP XSP, EOLSP, BNAF Length must be 2 or less 

SETSP 2SP, PROTSP E3.5.3 
SETLC 7ZSP,0 E3.5.3 
APDSP ZSP,XSP E3.5.3 
APDSP ZSP,  BLSP E3.5.3 
STREAM TSP, ZSP, BIOPTB, BNAF, BNAF E3.5.3 
LEQLC ZSP,0, BNAF E3.5.3 


SOURCE LISTING 


DMPSP, XSP 
DMPSP, BLEQSP 
DMPSP, YSP 


TOKEY, OUTBLK, DMPSP 


XCL, DESCR 
XCL,0,DMPK1,RTN1 


' Append name 


Append * = ' 
Append value 
Print line 
Adjust offset 
Check for end 


DUPL (S, N) 
Get string to duplicate 
Save string 
Get duplication factor 
Restore string 
Return null for 0 duplications 
Get specifier 
Get length 
E3.4.2 
Check 6&MAXLNGTH 
Allocate space for string 
Get specifier 
zero length 
Append a copy 
Count down 


YPTR,0,DUPL1,GENVSZ Check for end 
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000048874 


.00008875 


00004876 
000048877 


00008878 


00004879 
00005880 
00008881 
00008882 
00004883 


00004884 . 


00008885 
00004886 
00008887 
000048888 
00004889 
0000488990 
00008891 
00004892 


00004894 
00008895 
00004896 
00004897 
00004898 
00008899 
00008900 
00004901 
00004902 
00008903 
00008904 
00008905 
00008906 
00008907 
00004908 
00908909 
000048910 


00008911 


00008912 
00008913 
000046914 
00004915 
00008916 
00008917 


00009921 
00004922 
00008923 
00008924 
00008925 
00004926 


00008931 
00008932 
00008933 


00008938 
00008939 
00008940 
00008941 
0000648942 
00004943 
o00cHkI44 
000089465 


BNCF 


so 


URCE LISTING 


STYPE has function descriptor 


Get specifier for object 
Length must be 2 or less 


BNBF 


STYPE has function descriptor 


Join to copy descriptors 
Check for concatenation 
Find definition of image 
Join search for object 


Join search for object 


Check for concatenation 


E3.5 
£3.5 
E3.5 
E3.5 
E3.5 
E3.5 


es @ © 8 8 e@ 
WwW W la WW 


_CONCL represents concatenation 


CONCL represents concatenation 


Join to copy descriptors 


REPLACE (Sq ¢S2eS3) 

Get first argument 

Save first argument 

Get second argument 

Save second argument 

Get third argument 
Restore first and second 
Ignore replacement on null 
Get specifier for second 
Get specifier for third 
verify same lengths 
Ignore null replacement 
Get specifier for first 
Get length 

Allocate space for result 
Get specifier 

Clear specifier 

Append first argument 
perform replacement 

Got generate variable 


* F 
* 


SIZE 


TRIM 


MOVD XPTR,STYPE 
LOCSP YSP,YPTR 
LCOMP YSP,EQLSP, BNBF 
SETSP ZSP,PROTSP 
SETLC ZSP,0 
APDSP 2SP,Y¥SP 
APDSP 2ZSP,BLSP 
STREAM TSP, ZSP,BIOPTB,BNBF, 
LEQLC ZSP,0,BNBF 
MOVD YPTR,STYPE 
BRANCH OPPD 
LEXCMP XSP,BLSP,,BNCN 
RCALL XPTR,FINDEX, XPTR 
BRANCH  BNCF 
MOVD XPTR,CONCL 
BRANCH BNCF 
LEXCMP YSP,BLSP,UNBF,,UNBF 
MOVD YPTR, CONCL 
BRANCH OPPD 
REPLACE (Sq*S2eS3) 
PROC, 
RCALL XPTR,VARVAL, «FAIL 
PUSH XPTR 
RCALL YPTR,VARVAL,, FAIL 
PUSH YPTR 
RCALL ZPTR,VARVAL,,FAIL 
POP (YPTR, XPTR) 
AEQLC XPTR,0,,RTXPTR 
LOCSP YSP,YPTR 
LOCSP 2SP,2ZPTR 
LCOMP ZSP,YSP,FAIL,,FAIL 
AEQLC YPTR,0,,FAIL 
LOCSP XSP,XPTR 
GETLG XCL,XSP 
RCALL ZPTR,CONVAR, XCL 
LOCSP TSP,ZPTR 
SETLC TSP,0 
APDSP TSP,XSP 
RPLACE TSP,YSP,ZSP 
BRANCH GENVS2 
SIZE(S) 
PROC ‘ 
RCALL XPTR,VARVAL, » FAIL 
Locsp xXSP,XPTR 
GETLG 2PTR,XSP 
SETVC ZPTR,I 
BRANCH RTZPTR 
TIME () 
PROC ‘ 
RCALL  ,ARGVAL,,FAIL 
MSTIME ZPTR 
SUBTRT ZPTR,ZPTR,ETMCL 
SETVC 2PTR,1I 
BRANCH RTZPTR 
TRIM (S) 
PROC 2 
RCALL XPTR,VARVAL,,» FAIL 
LOCSP 2ZSP,XPTR 

ZSP, ZSP 


TRIMSP 


” $IZE(S) 


Get argument 

Get specifier 

Get length 

Insert INTEGER data type 
Return length 


TIME () 

Get rid of argument 

Get elapsed time 

Compute time in interpreter 
Insert INTEGER data type 
Return time 


TRIM(S) 

Get string 
Get specifier 
Trim string 
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* 
ets tl a ee ee 


000045951 
00008952 
00004953 


000048959 
00004960 
00004961 
00904962 
00004963 
00004964 
000048965 
00004966 
00004967 
00004968 
00004969 
000048970 
00004971 
00004972 


* 00004973 


00004974 
00004975 
00004976 
00004977 
00004978 
000048979 
00004980 
00004981 
00004962 
00004983 
00004984 
00004985 
00004986 
00004987 
00004988 
09004989 
090048990 
00004991 
00004992 
00008993 
00004994 
00004995 
00004996 
00004997 


* 00004998 


00004999 
00005000 
00005901 
00005002 
00005003 
00005004 
00005905 
00005006 
00005007 
00005008 


* 00005009 


00005010 
00005011 
00005012 
00005013 
000650 14 
00005015 
00005016 
90905017 
00005018 
c0005019 


* 00005020 


00005021 
c0005022 
00005023 
c0005924 
00005925 
00005026 
00005027 


BRANCH 
+ 
TITLE 
DATA  LHERE 
RTINUL RRTURN 
x 
RTN1  LHERE 
FAIL RRTURN 
* 
RETNUL RRTURN 
* 
RTN2 RRTURN 
te 
RIN3 LHERE 
RTNUL3 RRTURN 
x 
RTXNAM RRTURN 
* 
RTXPTR RRTURN 
* 
RTYPTR RRTURN 
* 
ARTN  INCRA 
RTZPTR RRTURN 
* . 
A5RTN RRTURN 
*x 
TSALF BRANCH 
* 
TSALT BRANCH 
* 
TSCOK BRANCH 
* 
GENVSZ RCALL 
* . 
* 
GENVRZ RCALL 
* 
+ / 
GENVIX RCALL 
*x 
wee 
TITLE 
END OUTPUT 
* 
OUTPUT 
* 
BRANCH 
* 
FTLEND OUTPUT 
ae 
MULTC 
GETD 
GETSPC 
STPRNT 
FTLEN2 ISTACK 
AEQLC 
MSTIME 
_ SUBTRT 
SETAC 
BRANCH 
ee 
FTLENS MSTIME 
SUBTRT 
FPTLEN1 AEQLC 
AEQLC 
ORDVST 
OUTPUT 
OUTPUT 
RCALL 
* 
an 
DMPNO OUTPUT 
OUTPUT 
BRANCH 
asa 
DMPK CALL 


SOURCE LISTING 


GENVRZ 


*Common Code* 
ta 


NULVCL,1 


td 


Pm 
NULVCL, 3 
o2 
oe 


XPTR,2 


XPTR,3 


YPTR,3 


ARTHCL, 1 


‘2PTR,3 


ASPTR, 1 
SALF,SCNR 
SALT, SCNR 


SCOK, SCNR 


Generate new variable 


. F = : —_—_.* 


Return null string by exit 1 


Return by exit 1 


Return null string by exit 3 


Return by exit 2 


Return by exit 3 


Return XPTR by exit 2 


Return XPTR by exit 3 


Return YPTR by exit 3 


Increment count of arithmetic 
Return ZPTR by exit 3 


Return ASPTR by exit 1 


Branch to SALF in 


Branch to SALT in 


Branch to SCOK in. 


-2ZPTR,GNVARS, XCL, RTZPTR = 3 


Generate variable 


ZPTR, GENVAR, ZSPPTR, RTZPTR 


Generate variable 


XPTR,GNVARI, XPTR, RTXNAM 


‘Termination? 


Generate variable 


OUTPUT, NRMEND, (LVLCL) 


End procedure 


OUTPUT, LASTSF, (STNOCL) 


FTLEN2 


Print status 


scanner 
scanner 


scanner 


from storage 


from integer 


Join termination procedure 


OUTPUT, FTLCF, (ERRTYP, STNOCL, LVLCL) 


YCL, ERRTYP, DESCR 
YCL,MSGNO,YCL 
TSP, YCL,0 

ITOKEY, OUTBLK, TSP 


° 

ETMCL, 0, FTLENS 
ETMCL 

TIMECL, ETMCL, TIMECL 
ETMCL, 0 

FTLEN1 


XCL 
ETMCL, XCL, ETMCL 
DMPCL,0,,END1 
NODPCL, 0 , DMPNO 


¢ 
OUTPUT, STDMP 
OUTPUT, NVARF 


Print status 


V3.7 


~. Convert error type to address units 


Get message pointer 
Get message specifier 
Print error message 
Reset system stack 


Was compiler done? 
Time out compiler 


Compute time in compiler 
Set interpreter time to 0 


Join end game 


Time out interpreter 
Compute time in interpreter 


Check &DUMP 


Check storage condition 
Order string structures 


Print dump title 
Print subtitle 


e DUMP, , (INTR10, INTR10 , DMPK) . 
Dump natural variables 


OUTPUT, INCGCF 
OUTPUT, NODMPF 
END1 


» DMK 


Print disclaimer 
Print reason 
Join end game 


‘Dump keywords 
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60005028 
€0005029 
00005030 
00005031 
00005032 
00005033 
000050934 
00005035 
00005036 
00005037 
00005938 
00005039 
00005040 
00005041 
00005042 
00005043 
00005044 
00005045 
00005046 
00005947 
00005048 
00005049 
90005059 
00005051 
00005052 
00005053 
000¢c5054 
00005055 
00005056 


00005957 


00005058 
00005959 
00005060 
00005061 
00005062 
00005063 
00005064 
00005065 
00005066 
00005067 
00005068 
00005069 
00005070 
00905071 
00005972 
00005973 
00005074 
00005075 
00005076 
00005077 


00005080 
00005081 
00005082 
00005083 
00005088 
00905085 
00005086 
00005087 
00005088 


00005089 | 


00005090 
09905991 
00005092 
00005093 
00005094 
00905095 
00005096 
00005097 
00005098 
00005099 
09005100 
00005101 
00005102 
00005103 
00005104 
00005105 
00005106 


(am; 


t ) 


END1 


Fn ee 


AERROR 
=, 
ALOC2 
+ 
ARGNER 


> 
INTR10 
INTR13 
COMP3 
agen 
COMPS 
Lan 
COMPT 


+. 
COMP9 


OUTPUT 
OUTPUT 


OUTPUT 
OUTPUT 


OUTPUT 


‘OUTPUT 


OUTPUT 


BRANCH 


INTRL 
INTRL 
DVREAL 
OUTPUT 
ENDEX 


OUTPUT 
AEQLC 


SETAC 
BRANCH 


TITLE 
SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 


BRANCH 


LHERE 
LHERE 
SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
DECRA 
BRANCH 


SETAC 
INCRA 
GETD 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


OUTPUT, STATHD 


SOURCE LISTING 


Print statistics title 


OUTPUT, CMTIME, (TIMECL) 


Print compilation time 


OUTPUT, INTIME, (ETMCL) 


Print interpretation time 


OUTPUT, EXNO, (EXNOCL, FALCL) 


OUTPUT, ARTHNO, (ARTHCL) 


Print execution stats 


Print arithmetic stats 


' OUTPUT, SCANNO, (SCNCL) 


Print scanner stats 


OUTPUT, STGENO, (GCNO) 


Print regeneration stats 


OUTPUT, READNO, (RSTAT) 


Print read stats 


OUTPUT, WRITNO, (WSTAT) 


EXNOCL, 0, END2 
FCL, ZEROCL 
AVTIME 


EXNOCL, EXNOCL 
XCL, ETMCL 
FCL, XCL, EXNOCL 


Print write stats 
Check for no interpretation 


Join end game 


Convert execution total to REAL 
Convert execution time to REAL 


Compute average time 


OUTPUT, TIMEPS, (FCL) Print average time 


ABNDCL 


OUTPUT, SYSCMT, (STNOCL, LVLCL) 


CUTNO, 0, ENDALL 
CUTNO, 1 
FTLENZ 


i 


terroz Handling’ 
ERRTYP, 2 
FTLTST 


ERRTYP, 20 
FTLEND 


ERRTYP, 25 
FTLEND 


v - 
ERRTYP, 17 
FTLEND | 


ERRTYP, 11 
FTLTST ™ 


ERRTYP, 27 
FTLEND 


ERRTYP, 26 
ESAICL, DESCR 
FTLEND 


ERRTYP, 28 
OCICL, DESCR 


System cut exit 


Join end game 


Arithmetic error 


Storage exhausted 


Incorrect number of arguments 


Program error 


Reading error 


Erroneous end statement 


Compilation errar Limit 
Decrement error count 


Erroneous statement 
Increment offset 


STNOCL, OCBSCL,OCICL Get statement number 


FTLEND 


ERRTYP, 22 
FTLEND 


ERRTYP, 1 
FTLTST 


ERRTYP, 24 
FTLEND 


ERRTYP, 19 
FTLEND 


ERRTYP, 15 
FTLTST 


Exceeded &STLIMIT 


Illegal data type 


Erroneous goto 


Failure in goto 


Exceeded &MAXLNGTH 
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E3.2.2 


00005107 
00005108 
00005109 
00005119 
00005111 
00095112 
00905113 
00005114 
00005115 
00005116 
00005117 
00005118 
09005119 
00005120 
90005121 
00005122 
00005123 
00005124 
00005125 
00005126 
00005127 
00005128 
€0005129 
00005130 
00005131 


60005133 
00005134 
09005135 


00005136 
00005137 
00005138 
00005139 
00005740 
00005141 
00005142 
00005143 
00005144 
00005145 
00005146 
00005147 
00005148 
00005149 
00005159 
00005151 
00095152 
C005153 
00005154 
00005155 
c0005156 


- 00005157 


00005158 
000c5159 
0000516 
00005161 
00005162 
00005163 
000057164 
00095165 
00005166 
00005167 


\ 


00005168 


00005169 
00005170 
00005171 
00005172 
00005173 
o00c5174 
00005175 
00005176 
00005177 
00005178 
00005179 
00005180 
00005181 
00005182 


eae 
INTR27 
e; 
INTR30 


© 
INTR31 


NONAME 


* 
NONARY 


*.. 
OVER 


ae 
PROTER 


* 
SCDTER 


* 
SCLENR 


aa 
SCLNOR 


¥ 
SCNAME 


* 
- SCNEMO 


a 
SIZERR 


ae 
UNDF 


+ 
UNDFFE 


ne 
UNKNKW 
+. 
UNTERR 
ae 
SCERST 


a 
FTLTST 
FTERST 
* 


FTERBR 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


’ SETAC 


BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
BRANCH 


SETAC 
ACOMPC 


DECRA 
ACOMPC 


LOCAPT 


PUSH 
RCALL 


POP 
SELBRA 


SOURCE LISTING 


ERRTYP, 13 Excessive data types 

FTLTST 

ERRTYP, 10 Illegal argument 

FTLTST 

ERRTYP, 16 Overflow in pattern matching 
SCERCL, 3 2 

FTERST 

ERRTYP, 14% Negative number 

FTLTST 

ERRTYP, 18 Return from level zero 

FTLEND 

ERRTYP,8 Variable not present 

FTLTST 

ERRTYP, 4 Null string 

FTLTST 

ERRTYP, 3 Erroneous array or table reference 
FTLTST 

ERRTYP, 21 Stack overflow 

FTLEND 

ERRTYP,6 Erroneous prototype 

FTLTST 

ERRTYP, 1 Illegal data type 

SCERST : 

ERRTYP, 14 Negative number 

SCERST 

ERRTYP, 15 String overflow © 

SCERST : 

ERRTYP, 4 Null string 

SCERST 

SCERST E3.4.4 

E3.4.4 

ERRTYP,23 Object too large 

FTLEND 
' ERRTYP,5 Undefined function 

FTLTST 

ERRTYP, 9 Function entry point not label 
FTLTST ‘ 

ERRTYP, 7 Unknown keyword 

FTLTST 

ERRTYP, 12 Illegal f/0 unit 

FTLTST : 

SCERCL, 1 Note failure during pattern matching 
FTERST 

SCERCL, 2 Note failure outside pattern matchin 


ERRLCL,0,,FTLEND, FTLEND 
Check &ERRLIMIT 
ERRLCL, 1 Decrement GERRLIMIT 
TRAPCL, (0, ,FTERBR, FTERBR 
Check &TRACE 


ATPTR, TKEYL, ERRTKY, FTERBR 
Look for KEYWORD trace 
SCERCL E3.1.3 
eTRPHND,ATPTR E3.3.1 
Perform trace 
SCERCL E3.1.3 


SCERCL, (TSALF, FAIL, RTNUL3) 
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00005183 
00005184 
00005185 
00005186 
00005187 
00005188 


00005189 


00005190 
00005191 
00005192 
00005193 
00005194 
00005195 
00005196 
00005197 
00005198 
00005199 
00005200 
00005201 
00005202 
00005203 
00005204 
00005205 
00005206 
00005207 
00005208 
00005209 
00005210 
00005211 
00005212 
00005213 
00005214 
00005215 
00005216 
00005217 
00005218 
00005219 
00005220 
00005221 
00005222 
00005223 
00005224 
00005225 


. 00005226 


00005227 
00005228 
00005229 
00005230 
00005231 
00005232 
00005233 
00005234 
00005235 
00005236 
00005237 
00005238 
00005239 
00005240 
00005241 
00005242 
00005243 
00005244 
00005245 
00005246 
00005287 
00005248 
00005249 
00005250 
00005251 
00005252 


00005254 


00005255 


rea ee 


DTLIST 


DTLEND 
* 


KNLIST 
TRIMCL 


TRAPCL 
EXLMCL 
OUTSW 
MLENCL 
INSW 
FULLCL 
TRACL 
ERRLCL 
DMPCL 
RETCOD 
ANCCL 
ABNDCL 
KNEND 
* 


KVLIST 
ERRTYP 
ERRTKY 
ARBPAT 
ARBKY 

BALPAT 
BALKY 

FNCPAT 
FNCEKY 
ABOPAT 
ABRTKY 
PALPAT 
FAILKY 
REMPAT 
REMKY 

SUCPAT 
SUCCKY 
FALCL 

FALKY 

LSTNCL 


RETPCL 


*Data* 


DTLIST, TTL*MARK, DTLEND- DTLIST-DESCR 


0,0,S 
VARSP, 0,0 
0,0-1 
INTGSP,0,0 
0,0,P 
PATSP,0,0 
0,0,A 
ARRSP,0,0 
0,0,R 
RLSP,0,0 
0,0,Cc 
CODESP,0,0 


0,0,K _ 
NAMESP,0 ,0 
0,0,E 
EXPSP, 0,0 
0,0,T 
ASSCSP,0,0 


KNLIST, TTL+ MARK, KNEND-KNLIST-DESCR 


0,0,1 
TRMSP,0,0 
0,0,I 
TRCESP,0,0 
50000,0,1 
STLMSP,0,0 
1,0, 
OUTSP,0,0 
5000,0,1 
MAXLSP,0,0 
1,0,1 
INSP,0,0 
0,0,1 
FULLSP,0,0 
0,0,1 
FTRCSP,0,0 
0,0,1 
ERRLSP,0,0 
0,0,1 
DUMPSP,9,0 
0,0,1 
CODESP,0,0 
0,0,1 
ANCHSP,0,0 
0,0,f 
ABNDSP,0,0 


SOURCE _LISTING 


a OT 


STRING 
INTEGER 
PATTERN 
ARRAY 
REAL 
CODE 


NAME 


NAME (for keyword) 


EXPRESSION 


TABLE 


&TRIM 

6 TRACE 
SSTLIMIT 
SOUTPUT 
&MAXLNGTH 
SINPUT 
&FULLSCAN 
&FTRACE . 
&ERRLIMIT 
& DUMP 
&CODE 
SANCHOR 


SABEND 


KVLIST, TTL#MARK, KVEND-KVLIST-DESCR 


0,0,1 
ERRTSP,0,0 
ARBPT,0,P 
ARBSP,0,0 
BALPT,0,P 
BALSP,0,0 
FNCEPT, 0,P 
FNCESP,0,0 
ABORPT,0,P 
ABORSP,9,0 
FAILPT,0,P 
FAILSP,%,0 
REMPT,0,P 
REMSP,0,0 
SUCCPT,0,P 
succsP,9,0 
0,9,I 
STFCSP,0,0 
0,0,1 
LSTNSP,0,0 
0,0,5S 
RTYPSP,0,0 
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GERRTYPE 


6ARB 


&BAL 


& FENCE 


&EABORT 


6FAIL 


&REM 


& SUCCEED 


&STFCOUNT 


&LASTNO 


ERTNTYPE 


eer OL LTT 


00005256 
00005257 
00005258 
00005259 
00005260 
00005261 
00005262 
00005263 
00005264 
00005265 
00005266 
00005267 
00005268 
00005269 
00005270 
00005271 
00005272 
00005273 
00005274 
00005275 
00005276 
00005277- 
00005278 
90005279 
00065289 
00005281 
00005282 
00005283 
00005264 
00005285 
00005286 
00005287 
00005288 
00005289 
00005290 
00005291 
C0005292 
00005293 
00005294 
00005295 
00005296 
00005297 
00005298 
00005299 
00065 300 
00905301 
00005302 
00005303 
00005304 
00005305 
00005306 
00005307 
90905308 
00095309 
00005310 
00005311 
Q0005312 
00005313 
00N05314 
00005315 
00005316 
00005317 
00005318 
00005319 
00005320 
00005321 
00005 322 
00005323 
00005324 
00005325 
00005326 
00005327 
00005328 
00005329 
00005330 
009005331 
00005332 
00005333 


STNOCL 
ALPHVL 


EXNOCL 
STCTKY 
LVLCL 
FNCLKY 
KVEND 
* 


INLIST 


OTLIST 


OTSATL 
OUTPUT 


PUNCH 
PCHFST 
INSATL 
INPUT 
DFLSIZ 
* 


TRLIST 


VALTRS 


TENCLP 


TFNRLP 


* 
TRCBLK 


* 


ATRHD 
ATPRCL 


ATEXCL 
* 


‘* 

* 
ATDTP 
TIDTP 
IPDTP 
IRDTP 
IVDTP 
PIDTP. 
PPDTP 
PVDTP 
RIDTP 
RPDTP 
RRDTP 
RVDTP 
TADTP 
vVCDTP 
VEDTP 
VIDTP 
VPDTP 
VRDTP. 
VVDTP 
* 
ARTHCL 
CSTNCL 
RSTAT 
SCNCL 


0,0,1 
STNOSP,0,0 
ALNMSP,0,0 
0,0,1° 
STCTSP,0,0 
FNCLSP,0,0 


td 


SOURCE LISTING 


ESTNO 
SALPHABET 
&ESTCOUNT 


&FNCLEVEL 


INLIST, TTL#+MARK, 2*DESCR 


INPUT~DESCR, 0,0 
INSP,0,0 


INPUT block 


OTLIST, TTL#MARK, 4*DESCR 


OUTPUT~DESCR,0,0 
OUTSP,0,0 
PUNCH~-DESCR,0,0 
PNCHSP,0,0 


OUTPUT block 


PUNCH block 


OTSATL, TTL#MARK, 4*DESCR 


UNITO,0,1 
OUTPSP,0,0 
UNITP, 0,1 
CRDFSP,0,0 


OUTPUT unit 
OUTPUT format 
PUNCH unit 
PUNCH format 


INSATL, TTL*#MARK, 2*DESCR 


UNITI,0,1I 
80,0,1 


INPUT unit 
INPUT length 


TRLIST, TTL#MARK, 10*DESCR 


TVALL,0,0 VALUE trace 

VALSP,0,9 

TLABL,0,90 LABEL trace 

TRLASP,0,0 

TFENTL,0,0 CALL trace 

TRERSP,0,0 

TFEXTL,0O,0 RETURN trace 

RETSP,0,0 

TKEYL, 0,0 KEYWORD trace 

TRCBLK, TTL#¢MARK, 5*DESCR v3.7 
0,FNC,2 TRACE FUNCTION DESCRIPTOR V3.7 
DOTFN, FNC, 1 LITERAL FUNCTION DESCRIPTOR V3.7 
0,0,0 VARIABLE TO BE TRACED V3.7 
DOTFN, FNC, 1 LITERAL FUNCTION DESCRIPTOR V3.7 
0,0,0 TAG SUPPLIED FOR TRACE V3.7 
ATPRCL-DESCR, 0,0 Array header converting from TABLE 
0,0,0 Prototype 

2,0,0 Dimensionality 

1,0,2 1:2 second dimension 

1,0,0 I:n first dimension 
pe pairs 

A,0,T ARRAY~TABLE 

I,0,1 INTEGER~-INTEGER 

I,0,P INTEGER= PATTERN 

I,0,R INTEGER-REAL 

I,0,S INTEGER- STRING 

P,0,I PATTERN~INTEGER 

P,9,P PATTERN- PATTERN 

P,0,S PATTERN~STRING 

R,0,1I REAL-INTEGER 

R,0,P REAL- PATTERN 

R,0,R REAL~ REAL 

R,0,S REAL-STRING 

T,0,A TABLE-ARRAY 

$,0,C STRING~-CODE 

$,0,E STRING-~ EXPRESSION 

S,9,I STRING-INTEGER 

S,0,P STRING~ PATTERN 

S,0,R STRING-REAL 

S,0,S STRING~STRING 

0,0,9 Number of arithmetic operations 
0,0,I Compiler statement number 

0,0,0 Number of reads 

0,0,0 Number of scanner entrances 
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00005334 


.00005335 


00005336 
00005337 
00005338 


00005339 — 


00005340 


00005341 


00005342 
00005383 
00005344 
00005345 
00005346 
00005347 
00005348 
00005349 
00005350 
00005351 
00005352 
00005353 
90005354 
00005355 
00005356 
00005357 


~ 00005358 


00005359 
00095360 
00005361 
00005362 
00005363 
00005364 
C0005365 
00005366 
00005367 
00005368 
00005369 
00005370 
00005371 


00005372 


00005373 
00005374 
00005375 
00005376 
00005377 
00005378 
00005379 
00005380 
00005381 
00005382 
00005383 
00005384 
00005385 
00005386 
00005387 
00005388 
00005389 
000053990 
00005391 
00005392 
00005393 
00005394 
00005395 
00005396 
00005397 
00005398 
00005399 
00005400 
00005401 
00005402 
00005403 
00005404 


O 


SOURCE LISTING 


WSTAT DESCR 0,6,0 Number of writes 000054505 
TIMECL DESCR 0,0,0 Millisecond time 00005496 
* . 00005407 
* SWITCHES 00005408 
* 00005499 
ALCL DESCR 0,0,0 Entry point switch for ARG (F,N) 00005410 
ARRMRK DESCR 0,0,0 Prototype end switch for ARRAY (P,V) 00005411 
CUTNO DESCR 0,9,9 E3.2.2 : 
CNSLCL DESCR 0,0,0 Label redefinition switch 00005412 
DATACL DESCR 0,0,0 Prototype end switch for DATA(P) 00005413 
FNVLCL DESCR 0,0,90 FUNCTION-VALUE switch for trace 00005414 
LENFCL DESCR 0,0,0 Length failure switch 060054815 
LISTCL DESCR 1,0,0 Compiler listing switch 00005416 
LLIST DESCR 0,09,9 Left listing switch C0005417 
NAMGCL DESCR 0,0,0 Naming switch for SJSR 000054138 
SCERCL DESCR 0,0,90 Error branch switch 00005419 
* 00005429 
* Constants 00005421 
* 00005422 
ARBSIZ DESCR 8*NODESZ,0,0 Node size for ARBNO(P) 00005423 
CHARCL DESCR 1,0,9 Length constant 1 00005424 
CNDSIZ DESCR CNODS2Z,0,5B Compiler node size 00005425 
CODELT DESCR 200*DESCR,0,C Object code excess 00005826 
DSCRIW DESCR 2*DESCR,0,0 Constant 2*DESCR 00005427 
EOSCL DESCR OSTYP,0,0 End of statement switch 00005828 
ESALIM DESCR SASIZ*DESCR,0,9 Bound on compilation errors 00005429 
EXTVAL DESCR . EXTSIZ*2*DESCR,0,I Default M for TABLE (N,M) 00005439 
FBLKRQ DESCR FBLKSZ,0,B Quantum on allocated function blocks 00005531 
_GOBRCL DESCR 0,0,0 Goto break character switch 00005432 
GTOCL DESCR FGOTYP,0,0 Goto decision switch 90005433 
IOBLSZ NESCR 2*DESCR,0,B Size of T/O blocks 90005434 
LNODS2 DESCR NOLESZ+4DESCR, 0, P Siz2 of long pattern node 00005435 
NODSIZ DESCR NODESZ,0,P Size of short pattern node 00005436 
OBEND DESCR OBLIST+DESCR*OBOFF,0,0 90005437 
* End on bin list 00005438 
OCALIM DESCR OCASIZ*DESCR,0,C Size of object code block 00005439 
ONECL DESCR 1,0,0° Constant 1 00005440 
OUTBLK DESCR OUTPUT-DESCR, 0,0 Pointer to OUTPUT block 000054451 
SIZLMT DESCR SIZLIM,0,0 Limit on size of data object . 09005442 
SNODSZ DESCR NODESZ,0,P Small pattern node size — 00005443 
STARSZ DESCR 11*DESCR,0,P Size of EXPRESSION pattern y 00005444 
ZEROCL DESCR 0,9,0 Constant zero 00005445 
COMDCT DESCR 14*DESCR,0,9 00005447 
COMREG DESCR ELEMND,0,0 Pointer to compiler descriptors 00005448 
* 00005349 
* 00005459 
* 00005451 
* Pointers to Assembled Data Patterns 00005452 
* 00005453 
ARBACK DESCR ARBAK,0,P goo00s5usu 
ARHEAD DESCR ARHED,0,P 00005455 
ARTAIL DESCR ARTAL,0,P = C0005456 
STRPAT DESCR STARPT,0,P 00005457 
* 00005458 
* Function Descriptors 00005459 
* 00005860 
ANYCCL DESCR ANYCFN,FNC,3 . 7 ~00005861 
ASGNCL DESCR ASGNFEN, FNC, 2 00005462 
ATOPCL DESCR ATOPFN, FNC, 3 00005463 
BASECL DESCR BASEFN, FNC,0 CO0N5864 
BRKCCL DESCR BRKCFN, FNC, 3 00005465 
CHRCL DESCR CHRFEN, FNC, 3 00005406 
CONCL DESCR CONFN, FNC,0 Argument count is incremented 90005467 
DNMECL DESCR DNMEFN, FNC, 2 00005468 
DNMICL DESCR DNMIFN,FNC,2 000054693 
DOTCL DESCR DOTFN, FNC, 1 0N00S47H 
ENDCL DESCR ENDFN, FNC,0 0c005471 
ENMECL DESCR ENMEFN, FNC, 3 00005472 
ENMICL DESCR ENMIFN, FNC, 3 000054573 
ERORCL DESCR ERORFN, FNC, 1 00005474 
FNCFCL DESCR PNCFFN, FNC, 2 0c005s475 
FNMECL DESCR FNMEFN, FNC, 2 000054576 
GOTGCL DESCR GOTGFN, FNC, 1 00605477 
GOTLCL DESCR GOTLEN, FNC, 1 00005473 
GOTOCL DESCR  GOTOFN,FNC,1 000°5479 
INITCL DESCR INITFN, FNC, 1 009005480 
ITEMCL DESCR AREFN, FNC,0 000cs4si 
LITCL DESCR LITFN, FNC, 0 Argument count is incremented 00005482 


ne ne ee aE 


SOURCE LISTING 


DESCR LNTHFN, FNC, 3 
DESCR NMEFN, FNC, 2 
DESCR NNYCFN, FNC, 3 
DESCR POSIFN, FNC, 3 
DESCR RPSIFN, FNC, 3 
DESCR RTBFN, FNC, 3 
DESCR SCANFN, FNC, 2 
DESCR SCFLFN, FNC, 2 
DESCR SCOKFN, FNC, 2 
DESCR SCONFN, FNC, 2 
DESCR SIJSRFN, FNC, 3 
DESCR SPNCFN, FNC, 3 
DESCR SUCFFN, FNC, 2 
DESCR TBFN,FNC,3 
DESCR ABNDB,0,0 
DESCR DTEND*DESCR,0,0 


Miscellaneous Data Cells 


DESCR 0,0,90 Scratch descriptor 
DESCR 0,0,0 Scratch descriptor 
DESCR 0,0,0 Scratch descriptor 
DESCR 0,0,9 Scratch descriptor 
DESCR 0,0,0 Break type returned by FORWRD 
DESCR 0,0,0 — Compiler offset 
DESCR 0,090,100 Beginning of defined data types 
DESCR 0,0,0 Bin pointer for DUMP 
DESCR 0,0,0 Data type descriptor F 
DESCR 0,0,0 Data type descriptor 
DESCR 0,0,0 Present error message address 
DESCR CARDSZ +STNOSZ~-SEQSIZ,0,0 
DESCR 0,0,0 Count of compiler errors 
DLSCR 0,0,0 Time descriptor 
DESCR 0,0,0 Real number descriptor 
DESCR FBLKSZ,0,0 offset in function block 
DESCR 0,0,0 Failure return 
DESCR 0,0,0: goto descriptor 
DESCR 0,0,90 Global function descriptor 
DESCR 0,0,0 I/O indicator 
DESCR 0,0,0 Maximum length for matching | 
DESCR MSGLST,0,0 Pointer to error message list 
DESCR 0,0,0 Offset on naming list 
DESCR 0,0,0 Name list head offset 
DESCR NAMLSZ*SPDR,0,B Name list end offset 
DESCR 0,0,S Null string value 
DESCR 0,0,0 Object code offset 
DESCR 0,0,0 Pattern code offset 
DESCR PDLBLK+SPDLDR~NODESZ,0,0 

Pattern history list end 
DESCR PDLBLK, 0,0 a Pattern history list beginning 
DESCR 0,0,0 Switch descriptor 
DESCR STACK, 0,0 Pointer to stack 
DESCR 0,FNC,0 * Descriptor return by STREAM 
DESCR 0,9,0 Pointer to last pattern table 
DESCR 0,0,0 Input unit switch 
DESCR 0,0,0 


Program Pointers 


DESCR DEFDAT, FNC, Defined data objects 


DESCR DEFFNC, FNC, 0 Defined functions 

DESCR FIELD,0,1 Field of defined data objects 
DESCR LNKFNC, FNC, 0 External functions 

DESCR PDLBLK,C,0 History list head 

DESCR UNDF, FNC,0 Undefined functions 


Pointers to Specifiers 


DESCR DPSP,0,0 
DESCR XsP,0,0 
DESCR YSP,0,0 
DESCR ZSP,0,0 
DESCR TSP,0,0 


Permanent Attribute List Pointers 
DESCR KNLIST,0,0 Unprotected keyword list 
DESCR KVLIST,0,0 Protected keyword list 
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000054883 
00005484 
00005485 
090054886 
00005487 
00005888 
00005489 
00005490 
00005491 
00005492 
00005493 
CO005H94 
00005495 


00005496 


00005497 
00005498 
00005499 
09005500 
00005501 
00005502 
00005503 
00005504 
00005505 
00005506 
00005507 
00005508 
00005509 
00005510 
00005511 
00005512 
00005513 
00005514 
00005515 
00005517 
00005518 
00005519 
00005520 
00005521 
00005522 
00005523 
00095524 
00005525 
00005526 
00005527 
00005528 
00005529 
00005539 
00005531 
00005532 
00005533 
00005534 
00005535 
00005536 
C0005537 
00005538 
00005539 
00005540 
00005531 
00005582 
00005543 
00005544 
00005545 
00005546 
00005547 
00005548 
00005549 
00905550 
00005551 
00005552 
00005553 
00005554 
00005555 
00005556 
00005557 
00005558 
00005559 
00005560 
00005561 


“ese ie 


ALPHSP 
AMPSP 
CERRSP 
COLSP 
DMPSP 
DTARSP 
* 
PROTSP 
QTSP 
REALS? 
TRACSP 
* : 
ARRSP 
ASSCSP 
BLSP 
BLEQSP 
CMASP 
EJCTSP 
EQLSP 
ETIMSP 
EXDTSP 
LEFTSP 
LISTSP 
LPRNSP 
OFSP 
RPRNSP 


XFERSP 
a 


* 

* 
BLNBOF 
DTARBF 
ERRBUF 
INBUF 
REALBF 


ICLBLK 
* 


* 

* 
DTATL 
FNCPL 
INATL 
OUTATL 
TVALL 


TLABL 
TFENTL 
TFEXTL 


TREYL 


DESCR 


TRLIST,0,0 


SOURCE LISTING 


Trace list 


Specifiers for Compilation Listing 


SPEC 
SPEC 
SPEC 
SPEC 
SPEC 
SPEC 
SPEC 


Strings 


SPEC 
SPEC 
SPEC 
SPEC 
SPEC 
SPEC 


SPEC 
SPEC 
SPEC 
SPEC 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


BLNBUF,0,0,0, STNOSZ 

ERRBUF, 0,0, 0, CARDSZ*STNOSZ-SEQSIZ+1 
INBUF,0,0,STNOSZ,CARDSZ 
INBUF,0,0,0,CARDSZ*DSTS2+1 

INBUF, 0,0, STNOSZ,CARDSZ-SEQSIZ 
INBUF,0,0,0,STNOSZ 

INBUF, 0,0, CARDSZ+STNOS2Z+¢1,STNOSZ 


and Specifiers 


ALPHA,0,0,0,ALPHSZ Alphabet 


AMPST,0,0,0,1 Ampersand 
ANYSP,0,0,0,0 ; Buffer specifier 
COLSTR,0,0,0,2 Colon for trace messages 
ANYSP,0,0,0,0 Buffer specifier 
DTARBF,0,0,0,ARRLEN+9 
Array representation specifier 
ANYSP,0,0,0,0 Buffer specifier 
QTSTR,0,0,0,1 Quote for messages 
REALBF,0,0,0,10 Specifier for real conversion 
ANYSP,0,0,0,0 Buffer specifier 
* ARRAY ¢ 
*TABLE® 
e ¢ 
ee = @ 
‘it 
t EJECT! 
@*= ¢ . 
¢,TIME = ° 
*EXTERNAL*® 
*LEFT® 
*LIsT?® 
ee 
e OF a ] 
*y)? 
teem t 
* CALL OF ° 
‘LEVEL ' 
‘ STATEMENT ° 
‘UNLIST? 


*TRANSFER TO* 


Character Buffers 


BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
DESCR 


STNOSZ 
ARRLEN+7 


Blanks for statment number field 
Array representation buffer 


CARDSZ+#STNOSZ-SEQSIZ+#1 


CARDSZ*DSTSZ+1 
36 


Card input buffer 
Buffer for real number conversion 


ICLBLK, TTL#MARK, ICLEND- ICLBLK~DESCR 


Pointers to Attribute Lists 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


Scratch 
DESCR 


DESCR 
DESCR 


DTLIST,0,0 
FNLIST,.0,0 
INLIST,0,0 
OTLIST,0,0 
TVALPL, 0,0: 
VLTREN, FNC , 2 
TLABPL,0,0 
LABTFN, FNC, 1 
TFENPL,0 ,0 
FNTRFN, FNC, 2 
TFEXPL,0,0 
FXTRFN, FNC, 2 
TKEYPL, 0,0 
KEYTFN,FNC,1 


Descriptors 


0,0,0 


Data type pair list 

Function pair list 

Input association pair list 
Output association pair list 
Value trace pair list 

Default value trace procedure 
Label trace pair list 

pefault label trace procedure 
Call trace pair list 

‘Default call trace procedure 
Return trace pair list 

Default return trace procedure 
Keyword trace pair list 
Default keyword trace procedure 
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00005562 
09095563 
00005564 
00005565 
00005566 
00005567 
00005568 
00005569 
00005570 
00005571 
00005572 
00005573 
09005574 
00005575 
00005576 
00005577 
00005578 
00005579 
00005580 
00005581 
00005582 
00005583 
00005584 
00005585 
00005586 
00005587 
00005588 
00005589 
00005590 
00005591 
00095592 
00905593 
69005594 
00005595 
00005596 
00905597 
00005598 


"90005599 


00005600 
00005601 
005905602 
00005603 
00005604 
00095605 
00005606 
09005607 
00905608 
00005609 
00005610 
00005611 
00005612 
00995613 
00005614 
00005615 
00905616 
00905617 
~00005618 
00005619 
00005620 
00095621 
00005622 
00005623 
00005628 
00005625 
00005626 
00005627 
00005628 
00005629 
00005630 
00005631 
00005632 
00005633 
09005634 
00005635 
00005636 
00905637 
00005638 
C0905639 


ATPTR 
FIPTR 
F2PTR 
IO2PTR 
IOUPTR 
LPTR 


ELEMND 
ELEXND 
ELEYND 
EXELND 
EXEXND 
EXOPCL 
EXOPND 
EXPRND 
FGOND 

FORMND 
FRNCL 

GOTOND 
PATND 

SGOND 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR_ 
DESCR 
DESCR 
DESCR 
DESCR © 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


Q00009 

ess aan 
oeoonv20000000 000° 
een eaeeaes es 
ooon0000gq0 0000 


ee © 82 8&8 8 8 ee 


aooo0o0000o0o0o0o°o 


es 8 8 & @ 8 


CPOoD000CCCCCOCC CCC 90 C9009 
-Qooo0000q00000 000 


eeeeaaeaes &@ & 8 8&8 
eee 8 &@e 28 & & 4 


System Descriptors 


DESCR 0,0,0 
DESCR C,%2,0 
DESCR 0,0,0° 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 


Compiler Descriptors 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR _ 
DESCR 


eae @ &8 & 4 


oocec0c000c00en00 00° 
eT ee sen sd 
ooo0oo0q00qo000oe0°o°o 


« 


Data Pointers 


DESCR 0,0,0 
DESCR 0 
DESCR 0 
DESCR 0 
DESCR OQ 
DESCR 0 
DESCR 0 


SPEC 0,0,0 
SPEC 0,0,0 
SPEC 0,0,0 
SPEC 0,0,0 
SPEC 0,0,0 
SPEC 0,0,0 
SPEC 0,0,0 


SOURCE LISTING 


Last label pointer 


offset of beginning of statement 


Compiler code base descriptor 
Name list base pointer 


Function procedure descriptor block 
Interpreter code base descriptor 


End of object code block 
Pointer to basic object code 
Pattern code base descriptor 


Success return descriptor 


Element node 
Temporary node 
Temporary node 
Temporary node: 
Temporary node 
Operator node 
Operator node 
Expression node 


. Failure goto node 


Object node 
Failure return descriptor 
Goto node 

Pattern node 

Success goto node 

Subject node 


Default output format 
*END* 

*EXTERNAL® 

*FRETURN'® 

*NRETURN’ 

* RETURN’ 

*FUNCTION® 


Data type specifier 

Matching head specifier 

I/O specifier 

Matching tail specifier 
Compiler statement specifier 
Scratch specifier 

Scratch specifier 
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000056469 
00005681 
00005682 
00005643 
00005644 
00005645 
00005646 
00005647 
00005688 
00005689 
00005659 
00005651 
00005652 
00005653 
C0005654 


' 00005655 — 


00005655 
00005657 
00005658 
00005659 
00005660 
00005661 
(0005662 
00005663 


00005664 


00005665 
00005666 
00005667 
00005668 
00005669 
000056790 
00005671 
00005672 
00005673 
00005674 
C0005675 
00005676 
00005677 
00005678 
00005679 | 
00005680 
00005681 
00005682 
0000568 3 
00005684 
00005685 
00005686 
00005687 
00005688 
00005689 
00005690 
00005691 
00005692 
00005693 
00005694 
0C005695 
00005696 
00005697 
00005698 
00005699 
00005700 


00005701 


00005702 
00005703 
€0005704 
00005705 
00005706 
00005707 
00005708 
c0005709 
00005710 
00005711 
00005712 
00065713 
00005714 
00005715 
00005716 
000e5717 


"i spa 


ARGICL 
BUKPTR 
LSTPTR 
AXPTR 
SPECR1 
SPECR2 
ICLEND 
* 

* 

* 
BKICL 
BKDX 
BKDXU 
BKLTCL 
BKPTR 
BLOCL 
CONVSW 
CPYCL 
DESCL 
EQUVCL 
FRDSCL 
GCBLK 
GCNO 
GCMPTR 
GCREQ 
GCGOT 
LCPTR 
MVSGPT 
NODPCL 
OBPTR 
OFSET 
PRMDX 
PRMPTR 
ST1PTR 
ST2PTR 
TEMPCL 
TOPCL 
TTLCL 
TWOCL 
* 5 
x 
FRSGPT 
HDSGPT 
TLSGP 1 
GCXTTL 
* 


* 


_* 


SPEC 
SPEC 
SPEC 
SPEC 


Allocator Data 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


-DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


‘DESCR 


DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 


DESCR 


Machine-dependent Data 


COPY 


oo0oo 
2eae QQ « 
qQoooo0ox0o00°o o 

mes 8 8 8 ess 8 8 
RSS oOo md OOOO 

ro . 
. 2] 
ose 


ocoooso 
a 
eeweeeeee#8 
GOOHCOSO 


PRMS1IZ,0,0 


0,0,0 
0,0,0 
2*DESCR,0,8 


0,PTR,9 
0,PTR,0 
0,PTR,0 


Scratch specifier 
Scratch specifier 
Scratch specifier 
Scratch specifier 


Scratch descriptor 

Bin pointer 

Pointer to last structure 
Allocation size descriptor 
Scratch specifier 

Seratch specifier 

End of basic block 


Pointer to block being marked 
Offset in block being marked 
Offset in block 


CONVAR-GENVAR entry switch 
Regeneration block pointer 
Regeneration scratch descriptor 
Variable identification descriptor 


Pointer to marking block 

Count of regenerations 

Pointer to basic blocks 

Space required from regeneration 
Space obtained from regeneration 
Scratch descriptor 

Compression boundary pointer 
Regeneration switch 

Pointer to bins 

Offset in block during regeneration 
Size of basic block list 

Pointer to list of basic blocks 
Regeneration link pointer 
Regeneration link pointer 
Scracth descriptor 

Pointer to block title 

Pointer to block title 

Size of string to be marked 


Position pointer 
Head of allocated data region 
End of allocated data region 


GCXTTL, TTL+MARK, DESCR 


0,0,0 


MDATA 


Function Table | 


DESCR 


Block to prime marking procedure 
Pointer to block to mark 


Segment of machine-dependent data 


FTABLE, TTL#MARK, FTBLND-FTABLE~DESCR ' 


Primitive Functions 


DESCR 
DESCR 
DESCR 
DESCR 


DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


ANY, 0,1 
0,0,0 
APPLY, FNC, 1 
0,0,0 
ARBNO, 0, 1 
0,0,0 
ARG,0,2 
0,0,0 
ARRAY,0,2 


0,0,0 
BKSPCE,0,1 
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00005718 
00005719 
00005720 
00005721 
00005722 
00005723 
00005724 
00005725 
00005726 
00005727 
00005728 
00005729 
00005730 
00005731 
00005732 
00005733 
00005734 
00005735 
00005736 
00005737 
00005738 
00005739 
00005780 
00005741 
00005742 
00005743 
00005784 
00005745 
00005746 
00005747 
00095748 
C0005749 
00905750 
00005751 
00005752 
00005753 
00005758 
06005755 
00005756 
00005757 
00005758 
00005759 
00005750 
00005761 
00005762 
00005763 
00005764 
00005765 
00005766 
00005767 
00005768 
00005769 
00005770 
00005771 
00005772 
00005773 
00005774 
90005775 
00005776 
00005777 
00005778 
00005779 
00005780 
00005781 
00005782 
00005783 
00005784 
00005785 
00005786 
00005787 
00005788 
00005789 
00005790 
00005791 
00005792 
00005793 
00005794 
00005795 


BREAFN 


CLEAFN 


CODEFN 
COLEFN 
CNVRFN 
_ COPYFEN 
DATFN 
DATDEN 
DEFPIFN 
DIFFFN 
DTCHFEN 
DTFN 

DUMPFN 
DUPLFN 


ENDFFN 


INTGFN 


ITEMEN 


POSFN 

PRINFN 
PROTFN 
REMDFN 
RPLAFN 
READFN 


REWNFN 


0,0,0 
BREAK,0,1 
0,0,0 
CLEAR,0,1 
0,0,0 
CODER, 0,1 
0,0,90 
COLECT,0,1 
0,0,90 
CNVRT, 0,2 
0,0,0 
COPY,0,1 
0,0,0 
DATE,0,1 
0,0,0 
DATDEF,0,1 
0,0,0 
DEFINE, 0,2 
0,0,0 
DIFFER,0,2 
0,0,0 
DETACH,?,1 
0,0,0 
DT,0,1 
0,0,0 
DMP,0,1 
0,0,0 
DUPL,0,2 
0,0,0 


ENFILE,0,1° 


0,0,0 
EQO,0,2 
0,0,0 
EVAL,0,¢1 
0,0,0 
FIELDS,0,2 
0,0,0 
GE,0,2 


. 0,0,0 


GT,0,2 
0,0,0 
IDENT,0,2 
0,0,0 
INTGER,0,1 
0,9,0 
ITEM, FNC, 1 
0,0,0 

LE, 0,2 
0,0,0 

LEN, 0,1 
0,0,0 
LGT,0,2 
0,0,0 


-LOAD,0,2 


0,0,0 
LOCAL, 0,2 
0,0,0 
LT,0,2 
0,0,0 
NE,0,2 
0,0,0 
NOTANY,0,1 
0,0,0 
OPSYN,0,3 
0,0,0 
POS,0,1 
0,0,0 
PRINT,©,3 
0,0,0 
PROTO, 0,1 
0,0,0 
REMDR,0,2 
0,0,0 
RPLACE,9,3 
0,0,0 
READ,0,3 
0,0,0 
REWIND,0,1 


SOURCE LISTING 
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00005796 
00005797 
00005798 
00005799 
00005800 
00005801 
00005802 
00005803 
00005804 
00005805 
00005806 
90005807 
00005808 
00005809 
00005810 
00005871 
00005812 
90005813 
00005814 
00005815 
00005816 
00005817 
00005818 
90005819 
00005820 
00005821 
00005822 
00005823 
00005824 
00005825 
00005826 
00005827 
00005823 
00005829 
00005830 
00005831 
00005832 
00005833 
00005834 
00005835 


00005836. 


00005837 
00005838 
00005839 
00005840 
00005841 
00005882 
00005843 
00005844 
00005845 
00905846 
00005847 
00005848 
00005849 
00005850 
00005851 
00005852 
00005853 
00005854 
00005855 
00005856 
00005857 
00005858 
00005859 
00005860 
00005861 
00005862 
00005863 
00005864 
00005865 
00005866 
00005867 
00005868 
00005869 
00005870 
00005871 
00005872 
00005873 


RPOSFN 
RTABFN 
SIZEFN 
SPANFN 
STPTFN 
TABFN 
TIMFN 
TRCEFN 
TRIMFN 
UNLDFN 
VALFN 
FTBLND 


* 
INITLS 


FNLIST 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
LHERE 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


0,0,0 
RPOS,0,1 
0,0,0 
RTAB,0,1 
0,0,9 
SIZE,0,1 
0,0,0 
SPAN,0,1 
0,0,0 
STOPTR, 0,2 
0,0,0 
TAB,O,1 
0,0,0 
TIME,0,1 
0,0,0 
TRACE,0,4 
0,0,0 
TRIM,0,1 
0,0,0 
UNLOAD,9,1 
0,0,0 
FIELD,0,1 
VALBLK,0,0 


SQURCE LISTING 


INITLS, TTL#MARK, 8*DESCR 


DTLIST,0,0 
FNLIST,0,0 
INLIST,0,0 
KNLIST,0,0 
KVLIST,0,0 
OTLIST,0,0 
OTSATL,0,0 
TRLIST,0,C 


Function Pair List 


DESCR 
DESCR 
DESCR 
DESCR 


- DESCR 


DESCR 
DESCR 
DESCR 


‘ DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


FNLIST, TTL#MARK, FNCPLE-FNLIST-DESCR 


ANY FN, FNC, 0 
ANYSP,0,0 
APLYFN, FNC, 0 
APLYSP,0,0 
ARBOFN, FNC, 0 
ARBNSP,,0 
ARGFN, FNC, 0 
ARGSP, 0,0 
ARRAFN, FNC, 0 
ARRSP, 9,0 
BACKFN, FNC, 0 
BACKSP, 0,0 
BREAFN, FNC, 0 
BRKSP,0,0 


CLEAFN, FNC, 0 


CLERSP,0,0 
CODEFN, FNC, 0 
CODESP,0,0 
COLEFN, FNC, 0 
CLSP,0,0 
CNVREN, FNC, 0 
CNVTSP,0,0 
COPYFN, FNC, 0 
COPYSP,0,0 


‘ DATDFN, FNC,0 


DATASP,0,0 
DATFN, FNC,0 
DATSP,0,0 
DEFIFN, FNC, 0 
DEFISP,0,0 
DIFFFN, FNC,0 
DIFFSP,0,0 
DTCHFN, FNC, 0 
DTCHSP,0,0 
DIFN,FNC,0 
DTSP,0,0 
DUMPFN, FNC, 0 
DUMPSP,0,0 
DUPLFN, FNC, 0 
DUPLSP, 0,0 


ANY (CS) 

APPLY (FeAlps e+ ¢AN) 
ARBNO (P) 

ARG (F,N) 

ARRAY (PV) 
BACKSPACE (N) 
BREAK (CS) 
CLEAR () 

CODE (5) 
COLLECT (N) 
CONVERT (V, DT) 
COPY (V) 


DATA (P) 


DEFINE (P,L) 
DIFFER (V1,V2) 
DETACH (V) 
DATATYPE (V) 
DUMP () 


DUPL (S,N) 
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00005874 
00005875 
00005376 
00005877 
00005878 
00005879 
06005880 
00005881 
00005882 
00005883 
00005884 
00005885 
00005886 
00005887 
00005888 
00005889 
00005890 
00005891 
00005892 
00005893 
00005894 
00005895 
00005896 
00005897 
00005898 
00005899 
00005900 
00005901 
00005902 
00005903 
06005904 
00005905 
00005906 
00005907 
00005908 
00005909 
00005910 
00005911 
00005912 
00005913 
00005914 
00005915 
00005916 
00095917 
00005918 
000c5919 
90005920 
00005921 
00005922 
00905923 
00005924 
00005925 
00005926 
00005927 
000059298 
00005929 
00005930 
c0005931 
00005932 
00005933 
00005934 
00005935 
00005936 
00005937 


00005939 
00005940 
00005941 
00005942 
00005983 
00005944 
00005945 
00005946 
00005947 
00005948 
00005949 
00005950 
00005951 


FNCPLE 
OPTBL 
ADDFN 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR’ 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
ARRAY 
LHERE 
DESCR 
DESCR 


ENDFFN,FNC,0 


ENDFSP,0,0 
EQFN, FNC, 0 
EQSP,0,0 
EVALFN, FNC, 0 
EVALSP,0,0 
FLDSFN, FNC, 0 
FLDSSP,0,0 
GEFN,FNC,0 
GESP,0,9 
GTFN, FNC, 0 
GTSP,0,0 
IDENFN, FNC, 0 
IDENSP,0,0 
READFN, FNC, 0 
INSP,0,0 
INTGFN, FNC, 0 
INTGSP,0,0 
ITEMFN, ENC, 0 
ITEMSP,0,0 
LENFN, FNC, 0 
LENSP, 0,0 
LESP,0,0 
LGTFN, FNC, 0 
LGTSP,0,0 
LOADFN, FNC, 0 
LOADSP, 0,0 
LOCFN, FNC, 0 
LOCSP, 0,0 
LTFN, FNC, 0 
LTSP,0,9 
NIFN, FNC, 0 
NESP,0,0 
NOTAFN, FNC, 0 
NNYSP,0,0 


_ OPSYFN, FNC, 0 


OPSNSP, 0,0 
PRINFN, FNC, 0 
OUTSP,0,0 
POSFN,FNC,0 
POSSP,0,0 
PROTFN, FNC, 0 
PRTSP,0,0 
REMDFN, FNC, 0 
REMDSP,0,0 
REWNFN, FNC, 0 
REWNSP,0,0 
RPLAFN, FNC, 0. 
RPLCSP,9,0 
RPOSFN, FNC, 0 
RPOSSP,90,C 
RTABFN, FNC, 0 
RTABSP,C,0 


SIZEFN, FNC, 0 


SIZESP,0,0 
SPANFN, FNC, 0. 
SPANSP,0,0 
STPTFN, FNC, 0 
STPTSP,0,0 
TABFN,FNC,0 
TABSP, 0,0 
ASSCEN, FNC, 0 
ASSCSP,0,0 
TIMFN, FNC, 0 
TIMSP, 0,0 
TRCEFN, FNC, 0 
TRCESP,0,0 
TRIMEN, FNC, 0 
TRMSP, 0,0 
UNLDFN, FNC, 0 
UNLDSP,0,0 
VALFN, FNC, 0 
VALSP, 0,0 
10*2 


SOURCE _LISTING 


ENDFILE (N) 
EQ(I1,12) 

EVAL (E) 

FIELD (V,N) 
GE(I1,12) 
GT(I1,12) 
IDENT (V1,V2) 
INPUT (V,N,L) 
INTEGER (V) 
ITEM (Ay IT 1,000 ¢IN) 
LEN (N) 
LE(I1,12) 

LGT (S1,S2) 
LOAD (P) 

LOCAL (F,N) 

LT (11,12) 
NE(I1,12) 
NOTANY (CS) 
OPSYN (F1,F2,N) 
OUTPUT (V,N,F) 
POS (N) 
PROTOTYPE (A) 


REMDR (N,M). 


. REWIND (N) 


REPLACE (S,CS1,CS2) 


RPOS (N) 


“ORTAB(N) _ 


SIZE (S) 

SPAN (CS) 
STOPTR(V,R) 
TAB (N) 

TABLE (N,M) 
TIME () 

TRACE (V,R,T,F) 
TRIM(S) 

UNLOAD (S) 
VALUE (S) 


Space for 10 more functions 
End of function pair list 


e 
OPTBL, TTL#MARK, OPTBND-OPTBL-DESCR 


ADD,90,2 


X+y addition 
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00005952 
00005953 
00005954 
00005955 
00005956 — 
00005957 
00005958 
00005959 
00005950 
00005961 
00005962 
00005963 
00005964 
00005965 
00005966 
00005967 
00005968 
00005969 
00005970 
00005971 
00005972 
00005973 
00005974 
00005975 
00005976 
00005977 
00005978 
00005979 
00005980 
00005981 
00005982 
00005983 
00005984 
00005985 
00005986 
00005987 
00005988 
00005989 
00005990 
00005991 
00005992 
00005993 
00005994 
00005995 
00005996 
00005997 
00005998 
00005999 
00006000 
00006001 
00006002 
00006003 
00006004 
00006005 
00006006 
00006007 
00006008 
00006009 
00006010 
00006011 
00006012 
00006013 
00006014 
00006015 


00006016 


00006017 
00006018 
00006019 
00006020 
00006021 
00006022 
00006023 
00006024 
00006925 
00006026 
00006027 
00006028 
00006029 


at 
Beall, 


BIAMFN 


BIATFN 


BINGFN 


BIPDFN 


BIPRFN 


BIQSFN 


CONFN 


DIVFN 


DOLFN 


EXPFN 


DESCR 
LHERE 


DESCR 
DESCR 
DESCR 


0,0,0 
30,0,29 
UNDF, FNC, 0 
0,0,0 
5,0,4 
UNDF, FNC, 0 
0,0,0 
25,0,24 
UNDF, FNC,0 
0,0,0 
70,0,70 
UNDF, FNC, 0 
0,0,0 
35,0,34 
UNDF, FNC, 0 
0,0,0 
85,0,44 
UNDF, FNC, 0 
0,0,0 
70,0,69. 
CON,0,2 
0,0,0 
20,0,19 
DIV,0,2 
0,0,0 
40,0,39 
DOL,0,2 
0,0,0 
60,0,59 
EXP, 0,2 
0,9,9 
50,0,50 » 
MPY,0,2 
0,0,0 
42,0,41 
NAM,0,2 
0,0,0 
60,0,59 
OR, 0,2 
0,0,0. 
10,0,9 
SUB,0,2 
0,0,0 
30,9,29 
UNDF, FNC, 0 
0,0,0 
ATOP,0,1 
0,0,0 

UNDF ,FNC,0 
0,0,0 
NAME,0,1_ 
0,0,0 . 
IND,0,1 


0,0,0 


KEYWRD,0,1 
0,0,0 
MNS,0,1 
0,0,90 
NEG,0,1 
0,0,90 
UNDF, FNC,0 
0,0,0 
PLS,0,1 
0,0,0 
UNDF,FNC,0 
0,0,0 
QUES,0, 1 
0,9,9 
UNDF, FNC,0 
0,90,0 
STR,0,1 
0,0,0 


’ 


ITEM,FNC,1 
ASGN,0,2 
BASE,0,0 


X ** 


*X 


SOURCE LISTING 


definable. 


definable 


definable 


definable 


definable 


definable 


’ concatenation 


division 
inmediate naming 
eviohoneiseian 
multiplication 
naming 
alternation. 
subtraction 


definable 

scanner position 
definable 

name 

indirect reference 
keyword 


minus ° 


' negation 


def inable 
plus 
definable 
interrogation 
definable 


unevaluated expression 


End of operator table 


Array or table reference 


X= Y 


Base object code 


- 81 - 


00006030 
00006031 

00006032 
00006033 
00006034 
00006035 
00006036 
00006037 
00006038 
00006039 
00006040 
00006041 

00006042 
00006043 
00006044 
00006045 
00006046 
00006047 
00006048 
00006049 
00006050 
00006051 

00006952 
00006053 
00006054 
00006055 
00006956 
00006057 
00006058 
00006059 
00006060 
0000E061 
00006062 
00006063 
00006064 
00006065 
00006066 
00006067 
00006068 
00006069 
00006070 
00006071 
00006072 
00006973 
00006074 
00006075 
00006076 
00906077 
00006078 
00006079 
00006080 
00906081 
00006982 
00006983 
00906084 
00006085 
00006086 
00006087 
00006088 
00006089 
00006090 
00006091 
00006092 
00006093 
00006094 
00006095 
00006096 
00006097 
00006098 
00906099 
00096100 
00006101 
00006102 
00006103 
00006104 
00006105 
00006106 
00006107 


ENDAFN 
ENDFN 
ERORFN 
FNTRFN 
FXTRFEN 
GOTGFN 
GOTLFN 

_ GOTOFN 
INITEN 
KEYTEN 
LABTFN 

*LITFN 
SCANFN 
SISRFN 
VLTRFN 
ANYCEN 
ARBFFN 
ARBNEN 
ATOPEN 
CHRFN 
BALFN 
BALFFN 
BRKCFN 
DNMEFN 
DNMIFN 
EARBFN 
DSARFN 
ENMEFN 
ENMIFN 
FARBFN 
FNMEFN 
LNTHFN 
NMEFN 

_ NNYCFN 
ONARFN 
ONRFFN 
POSIFN 
RPSIFN 
RTBEN 
SALFFN 
SCFLFN 
SCOKFN 
SCONFN 
SPNCFN 
STAREN 
TREN 
ABORFN 
FNCEFN 
FNCFFN 
SUCFFN 
* 

* 

* 
ABNDSP 
ABORSP 
ALNMSP 
ANCHSP 
ANYSP 
APLYSP 
ARBSP 
ARBNSP 
ARGSP 
BACKSP 
BALSP 
BRKSP 
TRFERSP 
CLERSP 
CODESP 
CLSP 
CNVTSP 
COPY SP 
DATSP 
DATASP 
DEFISP 
DIFFSP 
DTCHSP 
DTSP 
DUMPSP 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR . 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


‘DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


ARGNER,0,0 
END,0,0 
EROR,0,1 
FENTR,0,2 
FNEXTR,0,2 
GOTG,0,1 
GOTL,0,1 
GOTO,0,1 
INIT,0,1 
KEYTR,0,2 
LABTR, 0,2 
LIT, 0,1 
SCAN,0,2 
SJISR,0,3 
VALTR,0,2 
ANYC,0,3 
ARBF,0,2 
ARBN,0,2 
ATP,0,3 
CHR,0,3 
BAL, 0,2 
BALF,0,2 
BRKC,0,3 
DNME,0,2 
DNME1,0,2 
EARB,9,2 
DSAR,0,3 
ENME,0,3 
ENMI,0,3 
FARB,0,2 
FNME,0,2 
LNTH,0,3 
NME, 0,2 
NNYC,0,3 
ONAR,0,2 
ONRF,C,2 
POSI,0,3 
RPSI,0,3 
RTB,0,3 
SALF,0,2 
FAIL, 0,2 , 
SCOK,0,2 
SCON,0,2 
SPNC,0,3 
STAR,0,3 
TB,0,3 
RTNUL3,0,3 
FNCE,0,2 . 
RTNUL3,0,2 
SUCF,0,2 


SOURCE LISTING 


Safety exit on trace psuedo-code 
End of program 

Erroneous statement 

Call tracing 

Return tracing 

2<X> 

: (L) 

Internal goto 

Statement initialization 
Keyword tracing 
Label tracing 

Literal evaluation 
Pattern matching 

Pattern matching with replacement 
Value tracing 

Matching for ANY(S). 
Failure for ARB 

Matching for ARBNO(P) 
Matching for @X 

Matching for string 
Matching for BAL 

Failure for BAL 

Matching for BREAK (S) 


Matching for LEN (N) 


Matching for NOTANY(S) 


Matching for POS(N) 
Matching for RPOS(N) 
Matching for RTAB (N) 


Successful match procedure 


Matching for SPAN (S) 
Matching for *X 
Matching for TAB(N) 
Matching for ABORT 
Matching for FENCE 
Failure for FENCE 
Matching for SUCCEED 


Initialization Data for Functions . 


STRING 
STRING 
STRING 
STRING 
STRING 


STRING . 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


STRING 


STRING 
STRING 


*ABEND* 
‘ABORT? 
*ALPHABET® 
*ANCHOR' 
*ANY® 
*APPLY® 
*ARBt 
*ARBNO! 
"ARG! 

* BACKSPACE* 
‘BAL! 
*BREAK* 
"CALL 


.“CLEAR® 


*CODE* 
*COLLECT'® 
*CONVERT® 
*coPY® 
*DATE?* 
"DATA® 
*DEFINE* 
* DIFFER‘ 
*DETACH* 
*DATATYPE* 
*DUMP?t 
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00006108 
00006109 
00006110 
00006111 

00006112 

00006113 
00006114 
00006115 
00006116 
00006117 
00006118 
00006119 
00006120 
00006121 
00006122 
00006123 
00006124 
00006125 
00006126 
00006127 
00006128 
00006129 
00006130 
00006131 

00006132 
00006133 
00006134 
00006135 
00006136 
00006137 
00006138 
00006139 
00006140 
00006141 
00006142 
00006143 
00006144 
00906145 
00006146 
00006147 
00006148 
00006149 
00006150 
00006151 
00006152 
00006153 
00006154 
00006155 
00006156 
00006157 
00006158 
00006159 
00006160 
00006161 
00006162 


00006163 | 


000061648 
00006165 
00006166 
00006167 
00006168 
00006169 
00006170 
00006171 
00006172 
00006173 
00006174 
00006175 
00006176 
00006177 
00006178 
00006179 
00006180 
00006181 
00006182 
00006183 
00006184 
00006185 


DUPLSP 
ENDSP 

ENDFSP 
EQSP 

ERRLSP 
ERRTSP 
EVALSP 
EXPSP 
FAILLSP 
FNCESP 
FLDSSP 
FNCLSP 
FRETSP 
FTRCSP 
FULLSP 
FUNTSP 
GESP 

GTSP 

IDENSP 
INSP 

INTGSP 
ITEMSP 
TRKYSP 
TRLASP 
LSTNSP 
LENSP 

LESP 

LGTSP | 
LOADSP 
LOCSP 


CRDFSP 
OUTPSP 


ABNDB 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


STRING . 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


STRING 
STRING 


*DUPL* 
*END* 
*ENDFILE®S 
*zor 
*ERRLIMIT® 
*ERRTYPE® 
* EVAL 


* EXPRESSION 


"PAIL 
‘FENCE® 
‘FIELD 

* FNCLEVEL! 
* FRETURN* 
'FTRACE! 

* FULLSCAN® 
* FUNCTION® 
*GE* 

*GTt 
‘IDENT* 
‘INPUT? 

‘ INTEGER®* 
‘ITEM! 

* KEYWORD! 
‘LABEL 
*LASTNO® 
‘LEN® 

‘LE* 

‘Lert 
‘LOADS 
*LOCAL* 
‘nye 
‘MAXLNGTH* 
*NAME* 
"NES 
‘NOTANY' 
*NRETURN! 
‘OPSYN* 
‘OUTPUT 
‘PATTERN! 
*pos* 

* PROTOTYPE! 
* PUNCH! 
‘REAL 
*REMS 
‘REMDR* 
‘RETURN 
‘REWIND! 
‘REPLACE! 
‘RPOS®. 
*RTAB* 
*RTNTYPE® 
‘SIZE! 
‘SPAN? 
*STCOUNT! 
‘STFCOUNT® 
*STLIMIT® 
‘STOPTR* 
‘STNO? 
‘STRING! 
"SUCCEED! 
‘TAB! 
‘TIME! 
‘TRACE 
‘TRIM? 

* UNLOAD" 
"VALUE! 


© (80A1)° 
© (1X, 132A1) § 


Default output format 
Standard print format 


Pointers to Other Initialization 


LHERE 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


@ 

ALPHSP,0,0 
ALPHVL,0,0 
CRDFSP,0,0 
DFLFST,0,0 
EXDTSP,0,0 


GALPHABET 
Default output format 


*EXTERNAL® 
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00006186 
00006187 
00006188 
00006189 
00006190 
00006191 
00006192 
00006193 
00006194 
00006195 
00006196 
00906197 
00006198 
00006199 
00006200 
00006201 
00006202 
00006203 
00006204 
00006205 
00006206 
00006207 
00006208 
00006209 
00006210 
00006211 
00006212 
00006213 
00006214 
00006215 
00006216 
00006217 
00006218 
00006219 
00006220 
00006221 
00006222 
00006223 
00006224 
00006225 
00006226 
00006227 


00006228 


00006229 
00006230 
00006231 
C0006232 
00006233 
00006234 
00006235 
00006236 
00006237 


* 90006238 


00006239 
00006240 
00006241 
00006242 
00006243 
00006244 
00006245 
00006246 
00006247 
00006248 
00006249 
00006250 
00006251 
00006252 
00006253 
00006254 
00006255 
00006256 
00006257 
00006258 
00006259 
00006260 
00006261 
00006262 
00006263 


PRMTBL 


OBLOCK 


OERSTRT 
OBLIST 
* 


* 
* 


PDLBLK 


ARBPT 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


_DESCR 


DESCR 
EQU 
EQU 


EXTPTR,0,0 
ENDSP,0,0 
ENDPTR,0,0 


-FRETSP,0,0 


FRETCL,0,0 
FUNTSP,0,0 
FUNTCL,0,0 
NRETSP,0,0 
NRETCL, 0,0 
RETSP,0,0 
RETCL, 0,0 


DTEND-ANYSP 


BUFEXT*CPA 


System Arrays | 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR. 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
LHERE 
EQU 


String Storage Bin List 


DESCR 
ARRAY 
ARRAY 
EQU 


Pattern’ 


DESCR 
ARRAY 


SYSTEM 


DESCR 
ARRAY 


SOURCE _ LISTING 


‘END! 
*FRETURN®! 
‘FUNCTION? 
*NRETURN® 


*RETURN® 


PRMTBL, TTL#MARK, PRMSIZ 


¢ 
PRMTRM~PRMTBL~DESCR 


3 
OBSIZ 


OBSTRT-LNKFLD 


DTLIST,0,0 Data type pair list 
FNLIST,0,0 Function pair list 

FTABLE,0,0 Procedure descriptor table 
ICLBLK,0,0 Miscellaneous data 

KNLIST,0,0 Unprotected keyword pair list 
KVLIST, 0,0 Protected keyword pair list 
OPTBL,0,0 Operator procedure descriptors 
STACK,0,0 Interpreter stack 

INLIST,0,0 Input association pair list 
OTLIST,0,0 Output association pair list. 
" INSATL,0,0 Input block list 

OTSATL,0,0 Output block list 

TFENPL,0O,0 Call trace pair list 
TFEXPL,0,0 Return trace pair list 
TKEYPL,0,0 Keyword trace pair list 
TLABPL,O,0 Label trace pair list 
TRLIST,0,0 Trace pair list ; 
TVALPL,0,0 Value trace pair list 


End of basic block list 
Size of basic block list 


OBLOCK, TTLtMARK, OBARY*DESCR ‘ 


Pseudo heading 
Bin list 
Pseudo link pointer 


Matching History List 


PDLBLK, TTL+MARK, SPDLSZ*DESCR 


SPDLSZ 


STACK 


Pattern history list 


STACK, TTL+MARK, STSIZ E*DESCR | 


STSIZE 


Primitive Patterns 


DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


Interpreter stack 


ABORPT, TTL+MARK, 3*DESCR 


ABORFN, FNC, 2 


0,0,0 
0,0,0 


ABORT 


ARBAK, TTL+MARK,6*DESCR ° 
ONAREN, FNC, 2 

3*DESCR,0,0 

0,0,0 

ONRFFN,FNC,2 

0,0,0 

0,0,9 


ARBPT, TTL*#MARK, 9*DESCR 
SCOKFN, FNC, 2 ARB 
0,0,3*DESCR 

0,0,0 

SCOKFN, FNC, 2 
6*DESCR,0,0 

0,0,0 

FARBFN, FNC, 2 
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00006264 
00006265 
00006266 
00006267 
00006268 
00006269 
00006270 
00006271 
00006272 
00006273 
00006274 
00006275 
00006276 
00006277 
00006278 
00006279 
00006289 
00006281 
09006282 
00006283 
00006284 
00006285 
00006286 
00006287 
00006288 
00006289 
00006290 
00006291 
00006292 
00006293 
00006294 
00006295 
00006296 
00006297 
00006298 
00006299 


00006300 


00006301 
00006302 


00006303 


00006304 
00006305 
00006306 
00006307 
00006308 
00006309 
00006310 
00006311 
00006 312 
00006313 
00006314 
00006315 
00006316 
00006317 
00006318 
00006319 
00006320 
00006 321 
00006322 
00006323 
00006324 
00006325 
00006326 
00006327 
00006328 
00006329 
00006330 
00006331 
00006332 
00006333 
00006334 
00006335 
00006336 
00006337 
00006338 
00006339 
00006340 
00006341 


O 


ARHED 


ARTAL 


BALPT 


‘ 
FAILPT 


STARPT 


* 
souccpTt 


* 
TVALPL 


TLABPL 


TPENPL 


DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 


DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


SOURCE LISTING 


6*DESCR,0,0 
0,0,0 | 


ARHED, TTL¢MARK, 12*DESCR 
SCOKFN, FNC, 2 
0,0,3*DESCR 


0,0,0 


SCOKFN, FNC, 2 
6*DESCR,0,0 

0,0,0 

ARBNEN, FNC, 2 
9*DESCR,0,12*DESCR 
0,0,90 

ARBFFN, FNC, 2 


°0,0,0 


0,9,0 


ARTAL, TTL*MARK, 6*DESCR 
EARBFN, FNC, 2 
0,0,3*DESCR 

0,0,0 

SCOKFN, FNC, 2 
6*DESCR,0,0 

0,0,0 


BALPT, TTL+MARK, 9*DESCR 
SCOKFN, FNC, 2 BAL 
0,0,3*DESCR 

0,0,0 

BALFN, FNC, 2 

6*DESCR, 0,0 

0,0,0 

BALFFN, FNC, 2 
6*DESCR,0,0 

0,0,0 


‘FALLPT, TTL*+MARK, 3*DESCR 
SALFFN, FNC, 2 FAIL 


0,0,0 
0,0,0 


FNCEPT, TTL+MARK, 3*DESCR 
FNCEFN, FNC, 2 FENCE 
0,0,0 

0,0,0 


REMPT, TTL#MARK,4*DESCR 
RTBFN, FNC, 3 REM 


STARPT, TTL*MARK, 11*DESCR 


STARFN,FNC,3 

0,0,4*DESCR 

1,0,0 

0,0,0 

SCOKFN, FNC, 2 

7*DESCR,0,0 

0,0,0 

DSARFN, FNC, 3 

0,0,4¥*DESCR 

0,0,0 

0,9,0 

SUCCPT, TTL*#MARK, 3*DESCR 
SUCFFN, FNC, 2 SUCCEED 
0,0,0 

0,0,9 

TVALPL, TTL*#+MARK, 2*DESCR 

0,0,0 VALUE trace 
0,0,0 

TLABPL, TTL+MARK, 2*DESCR 

0,0,9 LABEL trace 
0,0,0 

TFENPL, TTL#MARK, 2*DESCR 

0,0,0 CALL trace 
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00006342 
00006343 
00006344 
00006345 
00006346 
00096347 
00006348 
00906349 


- 00006350 


00006351 
00006352 
09006353 
00006354 
60906355 
00006356 
00006357 
00006358 
00006359 
00006360 
00006361 
00006362 
00006 363 
00006364 
00006365 
00006366 
00006 367 
00006368 
00006369 
00006370 
00906371 
00006372 
09096373 
00006374 
09006375 
00006375 
00906377 
00006378 
00006379 
00006380 


00006 381 


00006 382 
00006383 
00006384 
00006385 
00006386 
00006387 
00006388 
000906389 
00606390 
00006391 
00096 392 
00006393 
00006394 
00006395 
009%6 396 
00006397 
090006398 
00006399 
00006400 
00006401 
COC06402 
000C6403 
00006804 
00006495. 
90006406 
00006407 
000064908 
09006409 
00006410 
00066421 
00006422 
00006423 
00006424 
00006425 
00006426 
00006427 
00096428 
00006429 


TFEXPL 


TKEYPL 


VALBLK 


* 
* 
* 


MSGLST 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


Fatal 


DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


-DESCR 


DESCK 
DESCR 
DESCR 
DESCR. 
DESCR 
DeESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


SOURCE LISTING 


0,0,0 

TFEXPL, TTL#MARK, 2*DESCR 

0,0,0 RETURN trace 
0,0,0 

TKEYPL, TTL+MARK, 2*DESCR 

0,0,0 KEYWORD trace 
0,0,0 

VALBLK, TTL#MARK, 6*DESCR 

0,0,S STRING 

0,0,0 0 offset 
0,0,N NAME 

0,0,0 0 offset 
0,0,K KEYWORD (NAME) 
0,0,0 0 offset 


MSG14,0,0 
MSG15,0,0 
MSG16,0,0 
MSG17,0,0 
MSG18,0,0 
MSG19,0,0 
MSG20,0,0 
MSG21,0,0 
MSG22,0,0 
MSG23,0,0 
MSG24,0,0 
MSG25,0,0 
MSG26,0,0 
MSG27,0,0 
MSG28,0,0 


Fatal Error Messages 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


*TJLLEGAL DATA TYPE* 
‘ERROR IN ARITHMETIC OPERATION? 
‘ERRONEOUS ARRAY OR TABLE REFERENCE* 


‘*NULL STRING IN ILLEGAL CONTEXT® 


‘UNDEFINED FUNCTION OR OPERATION * 
"ERRONEOUS PROTOTYPE? 

SUNKNOWN KEYWORD * 

"VARIABLE NOT PRESENT WHERE REQUIRED’ 
"ENTRY POINT OF FUNCTION NOT LABEL*® 
*ILLEGAL ARGUMENT TO PRIMITIVE FUNCTION® 
*READING ERROR* 

‘ILLEGAL I/O UNIT®* 

"LIMIT ON DEFINED DATA TYPES EXCEEDED’ 
"NEGATIVE NUMBER IN ILLEGAL CONTEXT® 
‘STRING OVERFLOW! 

"OVERFLOW DURING PATTERN MATCHING® 
"ERROR IN SNOBOLS SYSTEM! 

"RETURN FROM LEVEL ZERO® 

"FAILURE DURING GOTO EVALUATION® 
‘INSUFFICIENT STORAGE TO CONTINUE® 
"STACK OVERFLOW! 

*LIMIT ON STATEMENT EXECUTION EXCEEDED*® 
‘OBJECT EXCEEDS SIZE LIMIT® 

"UNDEFINED OR ERRONEOUS GOTO® 

* INCORRECT NUMBER OF ARGUMENTS ®* 

*LIMIT ON COMPILATION ERRORS EXCEEDED* 
* ERRONEOUS END STATEMENT'® 

"EXECUTION OF STATEMENT WITH COMPILATION ERROR® 


~ 86 ~ 


000064830 
00006931 
00006432 
00006833 
00006434 
00006435 
00006436 
00006837 
000064938 
000064839 
0000648480 
00006541 
00006842 
00006443 
00006484 
00006845 
00006846 
00006847 


00006448 


00006449 
00006450 
00006451 
00006452 
000064853 
CC006454 


(00006455 


00006856 
00006457 


"00006458 


00006859 
00006460 
00006461 
03006462 
00006863 
00006464 
00006465 
000064866 
00006467 
00006468 
00006469 
00006470 
00006471 
00006472 
00006473 


- 000064874 


00006475 
00006476 
00006477 
00006478 
00006479 
00006480 
00006481 
00006482 
00006483 
00006484 
00006485 
00006486 
00006487 
00006488 
00006489 
00006490 
00006491 
00006492 
00006493 
00006494 
00006495 
60006496 
00006497 
00006498 
00006499 
00006500 
00906501 
00006502 
00006503 
00006504 
00006505 
00006506 
00006507 


Ss 


ders 
aa 


O 


ae 


* 

* 

* 
EMSG1 
EMSG2 
EMSG3 
EMSG14 
ILCHAR 
ILLBIN 
ILLBRK 
ILLDEC 
ILLEOS 
ILLINT 


OPNLIT 
*e 


* 
* 
ARTHNO 


INCGCF 
INTIME 
LASTSF 
NODMPF 
NRMEND 
NVARF 

PKEYF 


_PRTOVF 


READNO 
SCANNO 
SOURCF 
STATHD 
STDMP 
STGENO 
SUCCF 
SYSCMT 
* 
TIMEPS 
TITLEF 
* 


WRITNO 


SOURCE LISTING 


Compiler Error Messages 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


Formats 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


FORMAT 
FORMAT 


FORMAT 
END 


*ERRONEOUS LABEL 

*PREVIOUSLY DEFINED LABEL* 

*ERRONEOUS SUBJECT 

*ERROR IN GOTO* 

*{ILLEGAL CHARACTER IN ELEMENT* 
*BINARY OPERATOR MISSING OR IN ERROR‘ 


‘ERRONEOUS OR MISSING BREAK CHARACTER * 


"ERRONEOUS REAL NUMBER‘ 
*IMPROPERLY TERMINATED STATEMENT * 
*ERRONEOUS INTEGER* 


‘*UNCLOSED LITERAL'* 


¢(1H0,115,21H MS. COMPILATION TIME) * 
* (11) ¢ 


*(34HOERRORS DETECTED IN SOURCE PROGRAM/1H1) * 
*(1HO,115,21H STATEMENTS EXECUTED,,18,7H FAILED) ° 
* (GHTERROR, 13, 13H IN STATEMENT,I5,9H AT LEVEL,13) °* 


*(33HTINCOMPLETE STORAGE REGENERATION.) * 


¢(1H0,I15,19H MS.~ EXECUTION TIME) * 
*(28H LAST STATEMENT EXECUTED WAS, I5) 
*(28HITERMINAL DUMP NOT POSSIBLE.) ! 

¢ (28HINORMAL TERMINATION AT LEVEL, 13) 
* (18HONATURAL VARIABLES,/1H )° 

* (21HOUNPROTECTED KEYWORDS/1H ) ° 
(29H *#*PRINT REQUEST TOO LONG***) § 
¢(1H0,115,16H READS PERFORMED) * 


¢ 


*(1HO0,115,26H PATTERN MATCHES PERFORMED) ° 
*(42HOBELL TELEPHONE LABORATORIES, INCORPORATED,/1H1) 


¢ (28HISNOBOLS STATISTICS SUMMARY-) * 


* (33HIDUMP OF VARIABLES AT TERMINATION/1H )* 
*(1HO,115,33H REGENERATIONS OF DYNAMIC STORAGE) ° 
*(37HONO ERRORS DETECTED IN SOURCE PROGRAM/1H1) ° 
*(27HOCUT BY SYSTEM IN STATEMENT, I5,9H AT LEVEL,I3) ° 


*(1HO,F15.2,35H MS. AVERAGE PER STATEMENT EXECUTED/1H1) ° 


*(37H1SNOBOL4Y (VERSION 3.7, JUL. 10, 


*(1HO,115,17H WRITES PERFORMED) ° 
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1971) /8H+_ 


.©(1HO,115,32H ARITHMETIC OPERATIONS PERFORMED) * 


E3.4.1 


E3.4.1 


ose 


v3.7 


00006508 
00006509 
00006510 
00006511 
00006512 
00006513 
00006514 
00006515 
90006516 
00006517 
00006518 
00006519 
00006520 
00006521 
00006522 
00006523 
00006524 
00006525 
00006526 
00006527 
00006528 
00006529 


00006531 
00006532 
00006533 
00006534 
00006535 
00006536 
00006537 
00006538 
00006539 
0000554 
00006541 
00906542 
00006543 
00606544 
00006545 


00006547 


00006549 
00006550 


A Cross-reference listing of the macro source for Version 3.7 of 
SNOBOL4 follows. This listing is provided to assist implementors of 
SNOBOL4 in locating the definition and use of symbols. The 
following conventions apply: 


(1) All numbers refer to the sequence numbers given in the 
original source listing for Version 3.0. These numbers appear in 
columns 77-80 of the Version 3.7 source. A number followed by a 
+ indicates a line changed or added in Version 3.7. The number 
given is that of the last numbered line preceding the change. 


(2) Up to 19 characters of the operand field are printed. Longer 
fields are truncated at 16 characters and followed by ... . 


(3) Some symbols are referenced but not defined in the source 
listing. These are indicated by ---- . 


This cross-reference listing was produced by adapting programs 
written by Randy Davis of the Stanford Linear Accelerator Center. 
Permission to use these programs is gratefully acknowledged. A copy 
of a report, CGTM 118, describing these programs is available from 
the author: © 


Mr. Randy Davis 
Stanford, California 94305 | 
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“Hh ss gga” 


ADDFN 
AERROR 


ALCL 
ALNMSP 
ALOC2 
ALPHA 
ALPHSP 
ALPHSZ 


ARGVAL 


ARGVC 
ARGV! 
ARGV2 
ARG1 
ARGICL 


CROSS REFERENCE 


value 


§ 

oe 

0,0,1 

*ABEND® 

PATICL, DESCR 

XPTR, EXPVAL, XPTR. oe 
SCL 
XPTR,GNVARI, XPTR 
XPTR, ARGVAL,, FAIL 
SCL 

XPTR,S,,ABNSV 
ABORPT,0,P 
RTNUL3,0,3 

ABORPT, TTL#MARK, .-. 
*ABORT® 

ABORSP,0,0 

ZPTR, XPTR,YPTR,A. oe 


e 


ADD,9,2 
ERRTYP,2 


0,0,90 
*ALPHABET ® 
ERRTYP, 20 


ALPHA,0,0,0,ALPHSZ 


0,0,0 
AMPST,0,0,0,1 


0,0,1 
*ANCHOR* 


¢ 


e 

ANYCFN, FNC, 3 
ANYC,0,3 
SNABTB, ERROR 
VSP, XSP 
YSP,VSP,TXSP 
ANY,0,1 
‘ANY! 

XPTR, TBLCS, ANYC2 
APPLY, FNC,1 
‘APPLY* 


e 2 
ZPTR,XPTRgYPTReAces 
ARBAK,0, P 

ARBAK, TTL#MARK 6.6. 
ARBN _ ao 
ARBF, 0,2 

ARBSP,0,9 


« 
ARBN,0,2 


’ 

*ARBNO* 

ARBNO,0,1 
XSIZ,XPTR 
ARBPT,0,P 

ARBPT, TTL*+MARK, Gee. 
8*NODESZ,0,0 

*ARBS 

ITEM, FNC, 1 


ARG 
ERRTYP,25 
*ARG* 


s 


XPTR, INVOKE, (XPT... 
INSW,0, ,ARGV2 
XPTR,XPTR, DESCR 
XPTR, VARVAL, ,- FAIL 
0,9,0 
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references 


0475 
5497 
5131+ 
5308 
25485 
2518 
2518+ 
2518+ 
2016 
2515¢ 
2518+ 
0358 
6322 
5320 
5321 
0358 
1877 
1817 
1853 


19142 
1942 
4558 
§337 
0570 
5576 
6259 
5576 
6260 
4O74 
5577 
2229 
5306 
2013 
2543 
2010 
5461 
2525 
2526 
2534 
5912 
5578 


5914 
5915 
5785 
1894 
2090 
5454 
6124 
6355 
0359 
2679 
6352 
5787 
5917 
5916 
2072 
0359 
5314 
2079 
5315 
5481 
4534 
5918 
4012 
1606 
5919 
1509 
3366 
4503 
1617 
1624 
1618. 
4532 
0553 


3481 ° 


2559 


6321 


1821 
1857 


1974 
1956 
4564 


0624 


4873 
2303 
2018 


2557 
2526 


2548 
2536+ 
5580 


6326 


2683. 


6334 


4539 


3628 


1686 
3437 
4582 


1619 
4542 
0554 


3597 3611 4746 


2573 


5266 


5381 


' 


5393 


1825 1829 1833 1837 1841 1845 


6029 


1916 1918 1920 
1984 


4570 48571 

0662 

2413 

2022 2036 2040 
2571 6123 

2532 


2555 2562 2569 
2536+ 


5583 5586 5913 


2691 2704 6125 


4544 5789 


3655 4513+ 6108 
1967 1979 1998 


3596 3609 3657 
8608 44627 4796 


0557 0559 0563 


1934 


2044 


6275 


2025 
3737 
8805 


0566 


1936 


2048 


2054 
3916 
5014 


0570 


1938 


2052 


2210 


4347 


1849 


1940 


S72 


2320 
4493 


ARYAD1 
ARYAD2 
ARYAD3 
ARYADT 
ARYAD9 
ARYA10 
ARYA11 
ARYA12 
ARYTYP 
ASGN 
ASGNC 
ASGNCJ 
ASGNCL 
ASGNCV 
ASGNFN 
ASGNIC 
ASGNV 
ASGNVN 
ASGNVP 
ASGNVV 
ASGNV1 
ASGN1 
ASSCFN 
ASSCR 
ASSCR2 
ASSCR3 
ASSCP4 
ASSCR5 
ASSCSP 
ASSOC 
ASSOCE 
Assoc 
ASSOC2 
ASSOC4 
ATDTP 
ATEXCL 
ATFN 
ATOP 


defn 


4553 
4569. 
4573 
5455 
6345 
1861 


607 
5791 
3434 
3443+ 
3454 
3460 
3463 
3478 
3487. 
3492 
3493 


0267 


5411 
3470 
3474 
5588 
5456 
6359 
5401 
1877 
1896 
1884 
6525 
1899 
1394 
1907 
1879 
1902 
1889 
5051 


3614 
3623 
3613 
3628 
3634 
3652 
3637 
3650 
0288 
&209 
4236 
4240 
5462 
4238 
6106 
&246 
4213 
4217 
4243 
4224 
4223 
4230 
5793 
3655 
3665+ 
3665+ 
3663 
3657+ 
5589 
3504 
3513+ 
35104 
3513+ 
3513+ 
5381 
5377 
6076 
2097 


type 


LOCAPV 
GETSIZ 
ACOMP 
DESCR 


- DESCR 


PUSH 


DESCR 
DESCR 
PROC 
STREAM 
ACOMPC 
SUBTRT 
SETVA 
suM 
INCRA 
PUTDC 
INCRA 
EQU 
DESCR 
SETAC 
SETAC 
STRING 
DESCR 
DESCR 
DESCR 
SELBRA 
INTRL 
LOCSP 
FORMAT 
INTRL 
SELBPA 
LOCSP 
Loesp 
LOCSP 
LOCSP 
INCRA 


ACOMPC 
MOVD 
MOVD 
ACOMP 
INCRA 
SETVC 
POP 
MULTC 
EQU 
PROC 
RCALL 
POP 
DESCR 
PUSH 
DESCR 
PUSH 
VEQLC 
AEQLC 
POP 
PUTDC. 
GETDC 
ACOMPC 
DESCR 
AEQLC 
GETSIZ 
DECRA 
MOVA 
LOCAPV 
STRING 
PROC 
PROC 
INCRA 
DECRA 
INCRA 
DESCR 
DESCR 
DESCR 
PROC 


CROSS REFERENCE 


value 


XPTR, FNCPL,XPTR,ee. 
ZCL,XPTR 

XCL, ZCL, FALL 
ARHED,0,P 

ARHED, TTL+MARK, lee. 
SCL 


UNDF, FNC, 0 
ARRAY,0,2 


td 
YSP,XSP,NUMBTB,P... 
YCL,0,,PROTER, PR... 
ZCL, ZCL,YCL 

YCL, ZCL 

ZCL, XCL,WCL 
XPTR,DESCR 

XPTR, DESCR, TPTR 
XPTR, DESCR 


ARTAL,0,P 

ARTAL, TTL+MARK, 6.6. 
0,0,0 
SCL, (AD,DV,EX,MP..+ 
XPTR, XPTR 

YSP, YPTR 
*(1H0,115,32H AR... 
YPTR,YPTR 

SCL, (AR, DR, EXR» Meee 
YSP, YPTR 

XSP,XPTR 

XSP,XPTR 

XSP,XPTR 

ARTHCL, 1 


XCL,0, ,ARYAD2,AR... 
ZPTR, ZEROCL 
WCL,XCL 

WCL, ZCL,ARGNER,A... 
YCL, 2*DESCR 

XPTR,N 

XPTR 
XPTR,XPTR,DESCR 

7 


e - 

XPTR, INVOKE, (XPT... 
XPTR 

ASGNFN, FNC, 2 ~. 
XPTR 


XPTR,K, ,ASGNIC 
INSW,0,,ASGNV1 
XPTR 
XPTR, DESCR,YPTR 
YPTR,YPTR,DESCR 
TRAPCL,0,,RTNUL3... 
ASSOC,0,2 
XCL, 1, ARGNER 
TCL,XPTR 

TCL, DESCR 

XPTR, WPTR 
WPTR,XPTR,YPTRy gone 
*TABLE® 


e 

ASSOC 

XPTR, 1 

XPTR, 2*DESCR 
WPTR, 1 

A,0,T 

1,0,9 
ATOP,0,1 
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4537 
4564 
4567 
2083 
5455 
1815 
1851 


5920 
5791 
3468 
3447 
3451 
34658 
3466+ 
3491 
3498 
3491 
0484 
3439 
3443+ 
3449 
0486 
2088 
5456 
5051 
1866 
1871 
1867 
5114 
1872 
1870 
1874 
1868 
1873 
1869 
1912 
1942 
3621 
3614 
3611 
3632 
3628 
3665+ 
3648 - 
3643 


6106 
4212 
4247 
0954 


5462 
4213 
4236 
G24 
4239 
4221 
4217 
4225 
6014 
3612 
3661 
3665+ 
3657+ 
3665+ 
0500 
3513+ 
3665+ 
3509 
35134 
3512 
4643 
Q747 


6076 


references 


4571 
2084 
6345 
1819 
1855 


3471 
3475 


5581 
3466+ 


5267 


6359 
5114 
1880 
1886 
1890 


1881 


1897 
1891 


1914 
1960 


3614 


3665 


“82167 | 


4241 
4218 
4226 


5279 
5793 


1823 
1859 


5612 
3470 


5921 


1885 


1903 


1908 
1900 


1916 
1984 


6015 


1827 1831 1835 1839 1843 1847 


3474 


1904 1909 


1918 1920 1934 1936 1938 1940 
1991 1999 2001 2004 2005 


CROSS REFERENCE 


symbol gefn type vaiue references 

ATOPCL 5463 DESCR ATOPFN,FNC,3 2104 

ATOPFN 6126 DESCR ATP,0,3 5463 

ATOP1 2103 RCALL TPTR, BLOCK,LNODSZ 2100 2101 

ATP 2733 PROC e 6126 

ATPEXN 2758+ RCALL XPTR,EXPEVU,XPTRe «- 2736 

ATPRCL 5374 DESCR 0,0,9 8746+ 5373. 

ATPTR 5640 DESCR 0,0,0 1525 1527+ 1573¢ 1573 1591 1591+ 2389 2389+ 2746 


2752+ 2984 2992+ 3149 3150 3170 3172 3177 «3178 
3178 3180+ 3187 3187+ 3199 3201 3206 3207 3207 
3209+ 3216 3218+ 4101 4105 42324 4232 &369 4371 
8427 4430+ 5251+¢ 5251 


ATP 1 2736 VEQLC XPTR, E, sATPEXN 2758+ 

ATP2 2745 AEQLC TRAPCL,0, ,TSCOK 2740 27481 - 

ATRHD 5373 DESCR ATPRCL-DESCR,0,0 | 4748 

ATTRIB 0258 EQU 2*DESCR 0401 0613 0658 0702 0909 0912. 1464 1540 3164+ 
3164+ 


AUGATL 0430 PROC 


’ 0535 3548 3565 3774 3805 39448 
AUGMOV 0846 DECRA A4PTR,DESCR 


AUG1 0439 GETSIZ AYPTR,AIPTR 0432 

AVT IME 5131 OUTPUT OUTPUT, TIMEPS, (FCL) 5126 

AXPTR 5728 DESCR 0,0,0 0579 0580 0596 0597 0610 0633 0634 0642 0643 
0645 0656 0670 0671 0673 0674 

A1PTR 5637 DeESCR 0,0,0 0431 0432 0436 0839 O487 0493+ 0493+ 0493+ 0492+ 
8840 4841 

A2PTR 5638 DESCR 9,0,0 0431 0434 O845 0474 0475 O476 0877 0478 0481 


0493+ 04934 0693+ 0493+ 0493+ 0493+ 0493+ 0503+ 0503+ 
0503+ 0510 4017 4018 4805 4806 
A3PTR 5639 DESCR 0,0,0 0431 0435 04463 O481 0482 0483 0484 04934 O49R+ 
0493+ 0493+ 0493+ 0493+ 0493+ 0493+ 0497 O497 0498 
0511 0513 0513 0514 4807 4809 4809 4810 48612 


AGPTR 5502 DESCR 0,0,0 0432 0834 0435 0439 0440 O441 0442 0443 O4G4 
: O4U5 0846 O4847 O841 0842 0849 0850 0851 0851 
0852 0853 
ASPTR 5503 DESCR 0,0,0 0436 0442 0483 O445 0447 0842 0844 0848 5N5K 
ASRTN 5054 RRTURN A5PTR,1 0437 0448 
A6PTR 5504 DESCR 0,0,0 : 0842 0843 0845 0848 
A7PTR. 5505 DESCR 0,0,0 0844 0845 0845 0846 0847 0853 
B 0318 EQU 2 0461 3091 3312 3665+ 5425 5431 5434 5527 5763 
BACKFN 5795 DESCR BKSPCE,0,1 5922 
BACKSP 6170 STRING *BACKSPACE! 5923 
BAL 2766 PROC , 2785 6128 
BALF 2785 PROC BAL 6129 
BALFFN 6129 DESCR BALF,0,2 | 6374 
BALFN 6128 DESCR BAL,0,2 6371 
BALF1 2767 AEQLC FULLCL,0,,BALF4 2790 
BALF2 2772 GETLG TVAL,TXSP 2769 2788 
BALF3 2790 AEQLC LENFCL,0,BAL1,BALF1 2786 
BALF4 2771 SETAV NVAL,YCL 2767 
_ BALKY 5317 DESCR BALSP,0,0 0360 
BALPAT 5316 DESCR BALPT,0,P ~~ - 0360 
BALPT 6367 DESCR BALPT,TTL#MARK,9... 5316 6367 
BALSP 6171 STRING ‘BAL 5317 
BAL 1 2782 DECRA PDLPTR,3*DESCR 2778 2774 2777 2790 
BARFN 6078 DESCR UNDF,FNC,0 
BASE 1499 PROC , 6107 = 
BASECL 54648 DESCR BASEFN,FNC,0 0891 0904 
BASEFN 6107 DESCR BASE,C,0 5464 


BCDFLD 0260 EQU Q*DESCR 

BEGIN 0331 INIT ° 

BIAMFN 6032 DESCR UNDF,FNC,0 

BIATFN 6035 DESCR UNDF,FNC,0 

BINCON 0873 MOVD ZPTR, CONCL 0864 
BINEOS 0876 SETAC EMSGCL,ILLEOS 

BINERR 0870 SETAC EMSGCL,ILLBIN 

BINGFN 6038 DESCR UNDF,FNC,0 


BINOP 0861 PROC ’ 1275 
BINOP1 0868 RCALL ,FORWRD,,COMP3 0862 
BIOPTB =F 0864 4945+ 4953+ 


BIPDFN 6041 DESCR UNDF,FNC,0 

BIPRFN 6044 DESCR UNDF,FNC,0 

BIQSFN 6047 DESCR UNDF,FNC,0 

BKDX 5736 DESCR 0,0,0 0709 0711 0712 0717 O719 O722 9746 0749 9751 
0752 0758 0759 0760 0766 0767 0773 OF77% 0775 
0787 0788 0793 0798 0799 0814 0815 0820 821 
0824 C827 0828 0829 0834 

BKDXU 5737 DESCR 0,0,0 0686 0687 0690 069% O748 0746 0761 0763 C764 
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BUFEXT 
BUFLEN 
BUKPTR 
c 
CARDL 
CARDLL 
CARDS2 
CARDTB 
CDIAG 


CDIAG1 


CERR11 


CERR12 


CLEAR2 


defn 


5738 


5739 
3821 
5735 


5591 
5611 
5566 
0552 


9556 


5740 


‘0569 


5590 
4962 
4969 
4952 
4966. 
49K 
5670 
5797 
20143 
2543 
5465 
6130 
2550 
6172 
2547 
5506 


6275 
6276 
5726 
0319 
1381 
1400 
0268 


~~ a 


1091 


11174 
1109 
1104 
1922 
5578 
1075 
1090 


1087 
1078 
1081 
1084 
1924 
1926 
5424 
2024 
2796 
5466 
6127 
2799 
280 

1928 
5799 
4581 
4584 
458? 


type 


DESCR 


DESCR 
PROC 
DESCR 


STRING 
BUFFER 
SPEC 
PROC 


-INCRA 


AEQLC 
STPRNT 
PUTLG 
AEQL 
SPEC 
SETAC 
SETAC 


SETAC 
SETAC 
SETAC 
SETAC 
ACOMP 
ACOMP 
DESCR 
PUSH 

PROC 

DESCR 
DESCR 
LOCSP 
REMSP 
ACOMP 
DESCR 
PROC 

ACOMP 
GETAC 


CROSS REFERENCE 


e 
DMPPTR,OBEND,RETNUL 4588 


YPTR, YPTR,INKFLD 


= 92 = 


4590 


value references 
0776 O777 
0,0,0 0597 0598 
0662 
0,PTR,S 0692 0693 
¥ 3825 3829 
0,0,0 0812 0814 
0832 0833 
‘= 4 &1483 4837 
STNOSZ 5566 
BLNBUF,0,0,0,STNOSZ 1388 1389 
’ 0336 0367 
1213) 1215 
1748 2030+ 
2176 2181 
3092 3313 
3931 3956 
4745 4771 
BLOCL, FRSGPT 0570 
0,0,0 0556 0557 
.9683 0684 
FRSGPT, BLOCL 0561 
eo 11117°0«1917 
XSP,BLSP, , BNCN 4945+ 4945 
YSP,BLSP,UNBF,,UNBF 4953+ 4953+ 
Y¥SP,YPTR 8964 4967 
XPTR, CONCL 4962 
XSP,XPTR 4915 
0,0,0 0885 0907 
BREAK, 0,1 5924 
ANY 5797 
ANYC 6130 
BRKCFN, FNC, 3 2014 2548 
BRKC,0,3 5465 
SNABTB, CONTIN 2547 
* BREAK * 5925 
XPTR, TBLCS, BRKC2 2523 
0,0,0 0863 0869 
0936 0940 
1007 1013 
14174 #1177 
DTEND-ANYSP 6276 
BUFEXT*CPA 4006 4021 
0,PTR,S 0583 0584 
8 1461 1511 
LNOSP, 0 1376 
LNOSP,¢C 1395 
80 5513 5567 
038% 1125 
BOSCL, DESCR 0926 0939 
1079 1082 
UNIT, 0,,R%4N1 --1098- - 
IOKEY,OUTBLK,ERRSP 1106 
ERRSP,YCL 1100 
XPTR,YPTR,FAIL,R... 1877 
ANYSP,0,0,0,0 177300«21774 
EMSGCL, EMSG1 0887 
EMSGCL, EMSG14 0975 0976 
1046 1047 
EMSGCL, ILLEOS 0914 0976 
EMSGCL, EMSG2 09171 
EMSGCL, EMSG3 0923 
EMSGCL, ILLBRK 0928 0936 
XPTR,YPTR,RETNUL... 1877 
XPTR,YPTR,RETNUL... 1877 
1,0,0 2024 2419 
CHARCL 2011 2020 
° 2812 2859 
CHRFEN, FNC, 3 2077 2134 
CHR,0,3 5466 
TSP, YPTR 2820 
VSP, XSP, TXSP 2824 
XPTR, YPTR,FAIL,R... 1877 
CLEAR,0,1 5926 
5799 


0779 
0603 


0694 
5795 
0815 


4875 


04482 
1226 
2076 
2188 
3482 
4263 


0563 
0684 
4076 


4945+ 
4953 


1091 


2554 


0884 
0947 
1027 
1193 


4032 
0585 
3930 


5568 
1354 
0952 
1085 


115 
0989 


1054 
1014 


0949 


6127 
2177 


0787 


"0624 


0695 
0822 


0541 
1231 
2081 
2199 
3513+ 
8282 


0564 
0685 


4183 
494U5+¢ 
4953+ 


1092 


0915 
0949 
1030 
V195 


4140 
0585 
4655 
5569 


0359 
1088 


1116 


-0996 


1058 
1047 


2182 


0794 
0645 


0725 
0823 


0897 
1277 
2103 
2330 
3579 
4319 


0564 
0735 


8680+ 


1093 


0921 
0973 
1046 
1240 


4155 
0587 
5270 
5570 


0988 


1000 
1061 


2200 


0646 
0727 


0824 


4146 
41327 
2133 
2338 
3585 
4326 


0565 
0736 


4ON5S+ 


1094 


0923 
0975 
1058 
1242 
4191 
0588 
5394 
5572 


0999 


1013 


2339 


0648 
0728 


0829 


1148 
1329 
2136 
2345 
3718 
4337 


0566 


&953¢ 


1095 


0929 
0989 
1061 
1345 


4834 


0590 
5426 


5613 
1026 


1014 


2346 


0658+ 0658+ 


0729 


0830 


1170 
1462 
2139 
2354 
3777 
4618 


0567 


4962 


0931 
0996 
1100 
1358 
4B4a4 
0593 
5439 
5614 


1057 


1021 


4320 


0831 


1164 
1087 
2148 
2949 
3809 
4656 


0569 


4969 


0934 


1900 


1106 
1484 


4851 
0618 


1076 


1027 


4338 


6 


CMOFCL 


CMPASP 
CMPATN 
CMPFGO 
CMPFRM 
CMPFT 

CMPFTC 
CMPGG 

CMPGO 

CMPILA 
CMPILC 


* CMPILE 


CMPILL 
CMPILM 
CMPILN 
CMPILO 
CMPNGO 
CMPSGO 
CMPSTC 
CMPSUB 
CMPTGO 
CMPUGO 
CMTCLR 


CMTCRD 
CMTIME 
CMTTYP 
CNDSIZ 


CNE 
CNODSZ 
CNSLCL 
CNTCRD 
CNTTYP 
CNVAT 
CNVAT2 
CNVIV 
CNVRFN 
CNVRT 
CNVRTS 
CNVTA 
CNVTA1 
CNVTA2 
CNVTA3 
CNVTA4 


CODER 
CODESP 


5507 


0959 
0939 
1026 
0952 
0965 
1021 
0984 
0972 
0914 
0912 
0883 
1013 
1046 
1057 
0906 
0968 
0999 
1054 
0926 
0947 
0986 


(1386 


1385 
6526 
0291 
5425 


1932 
0272 
5412 
1392 
0292 
4764 
Q7T71+ 
8709 
5805 
4626 
G716 
G718+ 
4724 
4726+ 
8752+ 
4731 
4761 
4729+ 
u718+4 
4752+ 
6177 
4712 
0456 
0268 


0459 
5801 
5426 
4682 
6175 


type 


STRING 
EQU 
STRING 
ACOMP 
STRING 
EQU 
DESCR 


DESCR 


RCALL 
RCALL 
RCALL 
RCALL 
RCALL 
AEQLC 
SELBRA 
RCALL 
RCALL 
PUTDC 
PROC 
AEQLC 
AEQLC 
RCALL 
SETAC 
SETVA 
RCALL 
AEQLC 
RCALL 
AEQLC 
SETVA 
SETLC 


AEQLC 
FORMAT 
EQU 
DESCR 


AEQL 
EQU 
DESCR 
FSHRTN 
EQU 
GETDC 
MOVDIC 
RCALL 
DESCR 
PROC 
RCALL 
MOVD 
GETD 
AEQLC 
GETDC 
AEQLC 
INCRA 
GETD 
GETSIZ 
GETSIZ 
STRING 
LOCSP 
INCRA 
EQU 


DECRA 
DESCR 


‘DESCR 


PROC 
STRING 


CROSS REFERENCE 


references 


vajue 
‘CLEAR? 5927 
5 0923 
*COLLECT! 5931 
XPTR, YPTR, FAIL,F--- 1877 
‘,¢ 0503 
2 1195 
0,0,0 0368 
0898 
0943 
1038 
1446 
4656 
0,0,0 0386 
0917 
0968 
1035 
1069 
4667 
FORMND, EXPR,,CDIAG 0940 
PATND,EXPR,,CDIAG 0929 
FGOND,EXPR,,CDIAG 0984 
FORMND, EXPR,,CDIAG 0931 
, TREPUB, FORMND,C..- 0957 
STYPE, FTOTYP,CERR11 1016 
STYPE, (,CMPSGO,C... 0980 
,FORWRD, ,COMP3 0923 
,FORBLK, , CERR12 0889 
LPTR,ATTRIB,CMBSCL 0909 
’ 0384 
BRTYPE,NBTYP,CERR11 1007 
BRTYPE,NBTYP,CERR11 1030 
SGOND,EXPR,,CDIAG 1052 
CMOFCL, 0 0895 
CSTNCL, CMOFCL 0936 
SGOND,EXPR,,CDIAG 0984 
STYPE, STOTYP,CERR11 1049 
SUBIND, ELEMNT,, (2+. 0921 
BRTYPE, EOSTYP, Coe. 0965 
CSTNCL, CMOFCL 1019 
LNOSP, 0 1408 
1431 
LISTCL,0,,RTN1 1370 
¢(1HO,115,21H MS... 5108 
2 
CNODSZ,0,B 1146 
1327 
XPTR, YPTR,RETNUL... 1877 
4*DESCR 5425 
0,0,0 0421 
TEXTSP, 1 4370 
g 
XCL, ZPTR, 2*DESCR 4643 
XPTR,DESCR,WPTR,O 4789 
ZPTR,GNVARI,ZPTR«.. 4636 
CNVRT, 0,2 5932 
; 4682 
XPTR, DTREP,ZPTR 464u+ 
YPTR,ZPTR 4648 
WCL,WPTR, XCL 4729 
XCL,DESCR, ¢CNVTA6 4725 
TCL, WPTR, DESCR 4761+ 
YCL,0,,FAIL 
WPTR, 2*DESCR 4752+ 
YPTR, YPTR, ZCL 4726+ 
XCL, YPTR 4729+ 
WCL,WPTR 4761+ 
‘CONVERT! 5933 
ZSP, 2PTR 4642 
OCICL, DESCR 0460 
4*DESCR 1147 
1278 
YCL,1 0467 
CODER, 0,1 5928 
200*#DESCR,0,C 0897 
CNVRT 5801 
‘CODE! 5271 
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0934 


4037 
1242 
0370 
0899 
0954 
1040 
1465 
4657 
0387 
0919 
0986 
1036 
1070 
4668 


0984 


0980 
0934 


4664 


0947 
0984 


1024 
1408 
1433 
1405 


1148 
1329 


0911 


4686 


1149 
1289 


0902 


5304 


0949 


4736 
3077 
0371 
0900 
0961 
1043 
1466 
4661 
0416 
0920 
0991 
1037 
1095 
8670 


0949 


9973 


1418 
1435 
1407 


1170 
1487 


5805 


1171 
1307 


1460 


5929 


0387 
0901 
0969 
1065 
1467 
4668 
0885 
0942 
0992 
1039 
1444 


1429 


1184 


1185 
1328 


0416 
0902 
0987 
1068 
1469 
4670 
0890 
0943 
1002 
1040 
1445 


1421 


1213 


1206 
1330 


0891 
0904 
0992 
1070 
1470 
4670 
0891 
0953 
1003 
1043 
1446 


1421 


1215 


1214 
1443 


0893 
0905 
1003 
1092 
1471 
8672 
0893 
0954 
1009 
1063 
1460 


1426 


1226 


1216 
1488 


0893 
0912 
1010 
1094 
1472 
4692+ 
0906 
0960 
1032 
1065 
1465 


1429 


1231 


1227 


0895 
0917 
1033 
144s 
1473 


0916 
0961 
42.53 
1067 
4659 


1431 


1277 


1232 


CROSS REFERENCE 


symbol defn type value references 
CODFNC 0463 PUSH YCL 0458 
CODSKP 0458 PROC 2 0465 4448 4495 
COLECT 4596 PROC . 5803 
COLEFN 5803 DESCR COLECT,0,1 5930 
COLSP 5579 SPEC COLSTR,0,0,0,2 3999 4072 4135 9 
COLSTR ---~ 5579 
COMDCT 5447 DESCR 14*DESCR,0,0 0415 6675 
COMP3 5151 SETAC ERRTYP,17 0381 0381 0384 0392 0868 0926 0972 0995 1066 
1029 1060 1120 1125 1125 1343 1354 1354 1405 
7 1418 1482 
COMP5 5154 SETAC ERRTYP,11 0379 1122 1351 3876 
COM?7 5157 SETAC ERRTYP,27 0396 0397 0397 O402 0405 0405 
COMP9 5160 SETAC ERRTYP, 26 1097 
COMREG 5448 DESCR ELEMND,O,0_. 0415 4675 
CON 4254 PROC ‘ . 6050 
CONCL 5467. DESCR CONFN,FNC,0 0873 4966 4970 
CONEN 6050 DESCR CON,0,2 5467 
CONIR 4703 INTRL ZPTR,ZPTR 4641 4699 | 
CONPP 4322 GETSIZ XSIZ,XPTR 4301 4340 
CONPV 4335 LocSP .TSP,YPTR- 4300 
CONRI 4706 RLINT ZPTR,ZPTR,FAIL,R... 4640 4714 
. CONTIN ---- 2550 2580 
CONVAR 0641 PROC GENVAR 2375 3872 4310 4895 4991 
CONVE 4686 PROC CNVRT 1695 4638 
CONVEX 4690 RCALL FORMND,EXPR, ,FAIL 4662 
CONVP 4317 LOCSP TSP,XPTR 4299 . 
CONVR 8698 LOCSP ZSP,2PTR 4639 ae 4 
CONVR4Y 0662 RCALL ,GC,BKLTCL, (ALOC... 0651 
CONVRS5 0653 PUTDC FRSGPT,0,ZEROCL 0662 
CONVSW 5741 DESCR 0,0,0 0578 0611 0632 0644 
CONVY 4304 LOCSP XSP,XPTR 4298 ; 
CONS1 4274 INTSPC ZSP,XPTR 4260 
CON4R 4269 REALST REALSP,XPTR 4261 
CON5 4277 VEQLC YPTR,S,,CON7 4258 4259 4267 4271 
CON5I 4293 INTSPC ZSP,YPTR 4279 
CONS5R 4288 REALST REALSP,YPTR — 4280 
CON7 4296 SETAV DTCL,XPTR 4277 4278 4286 4290 
COPY 4607 PROC 7 5807 
COPYFN 5807 DESCR COPy,0,1 5934 ‘ 
COPYSP 6178 STRING ‘copy* 5935 : 
CPA “= 6276 (+) 
CPYCL 5742 DESCR 0O,0,0 0707 0714 O71%4 #O721 O7F722 O722 — 
CRDFSP 6253 STRING ' (80A1)* 5356 6261 
CSTNCL 5402 DESCR 0,0,1 0886 0968 0969 0986 0987 1009 1010 1037 1038 
1067 1068 1094 1373 1394 
CTLCRD. 1404 FSHRTN TEXTSP,1 1370 
CTLCR1 1415 LEXCMP XSP,LISTSP,CTLCR... 1410 1410 
CTLCR2 14828 SETAC LLIST,O 1423 1423 


CTLCR3 1431 LEXCMP XSP,EJCTSP,CMTCL... 1415 1415 
| CTLTYP 0293 EQU 3 : 


CUTNO 5411+ DESCR 0,0,0 ~. 51344 51344 
DATA 5032 LHERE , : 2, 

DATACL 5413 DESCR- 0,0,0 3536 3553 3570 

DATASP 6180 STRING 'DATA® 5937 

DATA3 3552 FSHRTN XSP,1 3557 3568 

DATAS 3557 LEQLC YSP,0,,DATA3 3571 

DATA6 3570 SETAC DATACL,1 ; 3556 

DATCL | 5543 DESCR  DEFDAT,FNC,0 3574 3575 4545 

DATDEF 3534 PROC 5 5811 

DATDFN 5811 DESCR DATDEF,0,1 5936 

DATE 4795 PROC " 5809 

DATFN 5809 DESCR DATE,0,1 5937+ 

DATSEG 5508 DESCR 0,0,100 3544 3585 3548 3551 3565 3578 3586 
DATSIZ 0273 EQU 1000 3545 

DATSP 6179 STRING *DATE* 5939 

DATS 3573 LEQLC XSP,0,PROTER 3553 

DAT6 3584 PUTDC XCL,0,FLDCL 3562 

DAT? 3566 PUTDC XCL,DESCR,ZPTR 3589 

DEFCL 5584 DESCR DEFFNC,FNC,0 3073 3093 4531 4536 4540 


: ; 5543 
DEFDC 3723 PUSH (XCL,WCL,YCL,YPTR) 3694 


DEFDN 3728 POP (YPTR,YCL,WCL,XCL) 3724 
DEFDT 4171 LOCSP XSP,ZPTR 4137 
DEFDTT 4037 APDSP PROTSP,CMASP 4024 
DEFD1 3692 INCRA OCICL,DESCR 3707 
DEFD2 3695 AEQLC INSW,0,,DEFD8 3729 
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CROSS REFERENCE 


symbol defn type value references 
DEFD3 3705 PUSH XPTR 3702 3726 
.DEFD4 3710 ACOMP WCL,XCL,DEFD5,DEFDS 3713 
DEFDS 3715 GETDC WCL,YCL,DESCR 3710 3710 
DEFDS8 3704 GETDC XPTR,XPTR,DESCR 3695 3696 
DEFFC 3253 PUSH (XCL,WCL,YCL,Y¥PTR) 31714 
DEFFF 3250 MOVD £RETPCL,FRETCL 3192 
DEFFGO 3162 PUSH (FRTNCL, STNOCL,Oc«« 3155 
DEFFN 3259 PoP (YPTR,YCL,WCL,XCL) 3254 
DEFFNC 3106 PROC ° 5544 
DEFFNR 3262 MOoVD RETPCL,NRETCL - 3192 
DEFFS1 3195 POP  . ZCL 3251 3263 
DEFFS2 3213. DECRA LVICL,1 3204 3204 3207 
DEFFVX 3247 AEQLC XPTR,O,RTXNAM,NO... . 3242 
DEFF1 3112 INCRA OCICL,DESCR 3128 
DEFF10 3154 INCRA XPTR,DESCR 3160 
DEFF14 3125 GETDC XPTR,XPTR,DESCR 3115 3116 
DEFF15 3191 SETAC OCICL,0 3185 3185 3187 
DEFF17 3222 Pop (ZCL,OCBSCL,OCIC... 3274 3214 3216 
DEFF18 3175 ACOMPC TRAPCL,0,,DEFF19.-. 3167 3167. 
DEFF19 3184 INCRA LVLCL,1 - 3175 3175 3178 
DEFF 2 3115  AEQLC INSW,0,,DEFF14 :3260 
DEFF20 3204 ACOMPC TRAPCL,0,,DEFFS2... 3196 3196 
' DEFF3 3126 PUSH XPTR 3123 3257 
DEFFS 3131 ACOMP WCL,XCL,DEFF9,DEFF5S 3134 3138 
DEFF5 3140 GETDC ZCL,YCL,DESCR 3131 
DEFF6 3233 PoP XPTR 3237 
DEFF8 3145 INCRA: XPTR,DESCR 3153 
DEFF9 3136 POP ZCL 3131 
DEFIFN 5813 DESCR DEFINE,0,2 5940 
DEFINE 3039 PpFOC ‘ 5813 
DEFIN3 3053. PUSH YPTR 3051 
DEFING 3056 FSHRTN XSP,1 3061 3066 
DEFING 3068 LEQLC YSP,0,,DEFINI 3059 
DEFINS 3078 FSHRTN XSP,1 3078 3083 
DEFINI 3073 SETVA DEFCL,YCL 3068 
DEFISP 6181 STRING "DEFINE* 5941 
DEFTI &026 INTSPC XSP,ZPTR 4016 
DEFTIA 4023 APDSP PROTSP,XSP 8027 
DEFTV 48029 LOCSP XSP,2PTR 4015 
DEF 10 3085 LEQLC YSP,0,,DEF11 3075 
DEF 11 3089 INCRA YCL,2 3085 
DEF 12 3096 DECRA XPTR,DESCR 3100 
DESCL 5743 DESCR 0,0,0 0752 0753 075% 0756 0757 ©758 0767 0768 0769 
0771 0772 O773 0815 0816 817 0818 
DESCR oor- 0258 0259 0260 02614 0262 C263 026% 0266 (C272 


0276 0282 0284 0346 0348 0352 0354 0358 0359 
0360 0361 0362 0363 0364 0372 0386 0434 C435 
0440 O844 0856 0856 0481 C4934 04934 0493+ 0493+ 
0513 0528 0531 0538 0544 0558 0602 0612 0650 
0657 0690 0692 0696 0700 0704 0725 0728 O749 
0751 0759 O774 0776 0788 0802 0820 C827 0846 
0849 0890 0899 0900 0903 0904 0905 0916 0919 
0942 0953 0960 0991 1002 1032 1035 1039 1063 
1069 1091 1093 1096 12864 1290 1308 1444 1466 
1467 1469 1870 .1474 1520 1554 1564 1583 1615 
1621 1626 1642 1651 1655 1705 1711 1718 1729 
1735 1742 1750 1763 1769 1773 #1786 1791 1799 
2098 2118 2256 2262 2266 2332 2382 2386 2422 
2426 2428 2430 2434 2438 2440 2442 2450 2452 
2454 2456 2459 2462 2464 2476 2478 2479 2480 
2513 2600 2685 2687 2688 269% 2700 2706 2723 
2726 2734 2739 «2743 «2779 «2782 «2797 «2813 2819 
2836 2839 2841 2843 2860 2884 2887 2889 2891 
2901 2904 2906 2908 2920 2928 2929 2931 2934 
2937. 2940 2942 2955 2963 2976 2980 3000 3003 
3017 3020 3022 3024 3030 3031 3090 3094 3096 
3098 3112 3118 3125 3180 3145 3146 3147 3148 
3149 3150 3151 3154 3156 3157 3159 3164 3170 
3177 3199 3206 3225 3230 3231 3232 3234 3235 
3236 3291 3300 3306 3310 3311 3335 3317 3319 
3361 3363 3402 3421 3422 34880 3485 3486 34887 
3489 38992 3493 3497 3510¢ 35134 3513+ 35134 3513+ 
3563 3564 3566 3576 3577 3579+ 3581 3586 3587 
3588 3598 3624 3625 3627 3634 3635 36464 3645 
3650 36634 36654 3665+ 3665+ 3692 3698 3704 3715 
3716 3719 3743 3746 3771 3778 3779 3802 3810 
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DETACH 
DFLFST 


’ DFLSIZ 


DIAGRN 
DIFFER 
DIFFFN 
DIFFSP 
DIMTYP 
DIV 
DIVFN 
DMK 
DMP 
DMPA 
DMPB 
DMPCL 
DMPI 
DMPK 
DMPK1 
DMPNO 
DMPOVR 
DMPPTR 
DMPRT 
DMPSP 


DMPV 
DMPX 
DNME 
DNMECL 


3850 
5701 
5359 
1122 
8457 
5815 
6182 
0294 
1817 
6053 
4864 
&819 
4827 
4824 
5301 
4858 
5106 
4867 
5102 
4861 
5509 
4855 
5580 


8848 
§842 
2954 
5468 
6131 
2957 
5469 
6432 
2115 
6056 
5470 
6080 
5711 
5552 
1936 
2859 
6134 
2867 
2871 
2872 
5427 
0271 
4BOu 
0493+ 
0493+ 
0493+ 
5612 
0481 
5581 


0491 
5620 
5817 


CROSS REFERENCE 


value references 
3811 3854 
3926 3928+4 
3978 3979 
48223 4224 
4411 4412 
4561 4563 
4658 4667 
4752+ 4752+ 
4769+ U771+4 
4786 4787 
8922 4922 
$345 S347 
5426 S427 
S444 SuRT 
5911 6028 
6334 6336 
6359 6361 
6388 6394 
6431 6434 

’ 5817 

0,0,0 3808 6262 

80,0,1 3776 

INBFSP,UNIT,DIAG... 1122 1128 

é : 5815 

DIFFER,0,2 5942 

*DIFFER®* 5943 

1 

ADD 6053 

DIV,0,2 

e 5106 


ae ; 4822 
YPTR, YPTR, LNKFLD 4830 
WPTR,OBEND, RETNUL 4828 


0,0,1 5094 
YSP, XPTR 4839 
» DMK 5099 
XPTR, KNLIST, XCL 4879 
OUTPUT, INCGCF 5095 
OUTPUT, PRTOVF 4834 
0,0,0 4583 
IOKEY,OUTBLK,DMPSP 4846 
ANYSP,0,0,0,0 4831 
4873 
YSP,XPTR: 4838 
XCL,YSP - 4859 
NME i 6131 
DNMEFN, FNC,2 2937 
DNME,0,2- oa 5468 
NME : 6132 
DNMIFN,FNC, 2 .° 3003 
DNME1,0,2 ~~ 5869 
NAM 6056 
DOL,0,2 
DOTFN, FNC, 1 0899 
NAME,0,1 . 5371+ 
0,0,0,0,0 0478 
DPSP,0,0 0515 
ZPTR,XPTR,YPTR,Awe. 1894 
CHR 6134 
DSAR,0,3 © 6402 
FULLCL,0,,DSARP1 © 2863 
NVAL, YCL 2867 
NVAL, MAXLEN, NVAL 2869 
2*DESCR,0,0 0497 
2*STNOSZ 5569 
eo? 5819 
A3PTR,A2PTR 0476 
AIPTR,1,,DTABL2 0493+ 
A3PTR, DESCR 04934 
ARRLEN#7 5581 


A3PTR,A2PTR,DESCR 0475 
DTARBF,0,0,0,ARR... 0485 


0500 
DTARSP, RPRNSP 0508 
DTLIST,0,0 0511 
DETACH,0,1 5944 
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5821 
4856 


8834 
4584 


4836 
4874 


1467 
5371+ 


3855 
3934 
4014 
4228 
4420 
4565 
4718+ 
47556 
Q77 1+ 
4788 
5081 
5348 


5429 


5498 
6300 
6339 
6364 
6396 
6438 


. 1130 


4862 


4844 
4585 


4837 
4875 


5470 


3858 3859. 
3935 3936 
4105 48107 
4265 4284 
4424 4434 
4583 4585 
4726+ 4728 
8759 4760 
4771+ 771+ 
&809 4823 
5161 5165 
5350 5352 
5430 5434 
5616 5745 
6304 6311 
6342 6345 
6367 6369 
6400 6403 
4851 

4586 


3868 
3941 
4144 
4361 
4520 
4589 


-4732 


8761+ 
RI714 
4825 
52593 
5357 
5435 
5763 
6316 
6347 
6372 
6407 


3869 
3957 
4210 
4371 
4555 
4633 
4744 
&761 
Q7T1+ 
4829 
5282 
5361 
5437 
5769 
6321 
6350 
6375 
6422 


3883 
3958 
R214 
4386 
8557 
4653 
4750 
4764 
G771+4 
4868 
§311 
5371+ 
5439 
5779 
6326 
6353 
6378 
6425 


39248 


3978 
4220 
4395 
4560 
8654 
4751 
Q767 
S771+ 
8878 
5348 
5373 
Sagat 
5899 
6328 
6353 
6383 
6428 


8845 4852 4853 4854 4855 4872 


4876 4877 


0492 0514 0517 5552 


0503+ 
5614 


0486 
0501 


3289 


0487 
0502 


3298 


0488 0489 
0503 0507 
3304 3548 


0490 


3548 


0491 


4631 


0492 


4807 


0499 


defn 


6183 
3856 
5510 


6274 
4812 
5819 
5280 
5259 
0473 
0517 
0515 
0510 
8810 
6184 
5511 
4822 
5821 
6185 
4885 
5823 
6186 
4898 
1914 
0320 


2683 
6133 
5593 
6527 


-1223 


1235 
1258 
1255 
1165 
1180 
1245 
1248 
1162 
1252 
5683 


1156 
1136 
1151 
1193 
1204 
1211 
1146 
4155 
1188 
1230 
1140 
1157 
1174 
1168 
5684 


5685 
5512 


6511 
6514 
6512 
6513 


type 


STRING 
LOCAPV 
DESCR 


DESCR 
MOVD 
DESCR 
LHERE 
DESCR 
PROC 


. SETSP 


RRTURN 
MOVV 

RRTURN 
STRING 


‘DESCR 


PROC 
DESCR 
STRING 
PROC 
DESCR 
STRING 
APDSP 
DIVIDE 
EQU 


PROC 
DESCR 
STRING 
FORMAT 
SHORTN 
PUSH 
SETAC 
SETAC 
SPREAL 
SHORTN 
SETAC 
AEQLC 
SPCINT 
SETAC 
DESCR 


MovVD 
PROC 
AEQLC 
AEQLC 
GETDC 
ACOMP 
RCALL 
ADDSON 
PUSH 
MOVD 
SELBRA 
AEQLIC 


PUSH 
RCALL 
DESCR 


DESCR 
DESCR 


STRING 
STRING 
STRING 
STRING 


CROSS REFERENCE 


STYPE,QLITYP,ELEMN9 1138 


XPTR,XSP,ELEINT,... 11740 
EMSGCL, ILLINT 1162 
0,0,0 1137 
1191 
1228 
5448 
ZPTR, ELEMND 1208 
’ 0926 
ELEMND, 0, ELEMN6 1172 


BRTYPE,RPTYP,,EL... 1202 
ELEXND, ELEMND, FA... 1193 
XCL,YCL,ELEMNR,E.-- 1221 
ELEXND, BLOCK,CNDSIZ 1162 


ELEMND, ELEXND 1151 
ELEXND 1186 
ELEMND, ELEXND 1228 


STYPE, (,ELEILT,E... 1248 


ZPTR,FATHER,0,,/Ree- 1153 
1138 
ELEMND 1140 
XPTR,GENVAR, (XSP..- 1140 
0,0,0 1146 
1185 
1204 
1231 
0,0,0 1148 
0,0,0 0870 
1245 
‘ERRONEOUS LABEL* 1075 
"ERROR IN GOTO* 1090 


* PREVIOUSLY DEFI... 1078 
‘ERRONEOUS SUBJECT 1081 


value references 
*DETACH® 5945 
ZPTR, OUTATL, XPTR. .- 3852 

0,0,90 1864 1865 

1873 1874 

2215 2217 

2273 227% 

3375 3376 

4300 4301 

4641 8642 

RETCL,0,0 5498 6275 
A3PTR, EXTPTR 4807 
DT,0,1 5946 
; 5259 

DTLIST, TTL#MARK, ees 5259 5259 

? 3894 4017 
DPSP, EXDTSP : 0511 

DPSPTR, 1 0479 0493 

DTICL,A2PTR O4u77 O484 
A3PTR,3 4813 
*DATATYPE® 5947 

0,0,9 0510 0511 
DMP 5099 
DMP,0,1 . §948 

* DUMP? : 5302 5949 
F : 5823 
_DUPL,0,2 5950 
*DUPL! 5951 
TSP, XSP . 4900 

ZPTR, XPTR,sYPTReAces 1877 ee 

11 1687 1747 

se . 2736 2817 

5276 5395 
ARBN 6133 
EARB,0,2 6360 
*EJECT® 1431 
*(1H1)° 1434 
XSP,1 . 1140 
ELEMND. 1242 

EMSGCL, ILLBRK 1177 «1195 
EMSGCL, ITLLDEC 1165 
XPTR,XSP, ELEDEC, «+. 1140 
XSP,1 1140 
EMSGCL, ILCHAR 1138 


1151 


1192 
1229 


211 
1266 
1177 


1165 


1160 


1147 
1187 
1206 
1232 
1149 
0876 
1249 


1866 
2166 
2218 
2275 
3377 
4634 
4643 


5620 
4147 


0518 


3742 


2028 
2972 


1242 


4155 
1197 
1230 


1211 
1272 


1159 
1188 
1215 
1233 
1150 
1075 
1252 


1867 
2167 
2219 
2276 
3378 
4635 
G644 


5900 
4716 


3744 


2u58 
4262 


. 1156 


1199 
1233 


1240 


1152 
1189 
1216 
1234 
1213 
1078 
1255 


1868 
2168 
2220 
2277 
3379 
4636 


6281 
4840 


4806 


2102 


4281 


1174 
1200 
1234 


1155 
1191 
1217 
1236 
1218 
1081 
1258 


1869 
2169 
2221 
2278 
4296 
4637 


4807 


2127 
4416 


1176 
1201 
1235 


1170 
1192 
1226 
1238 
1217 
1084 
1335 


1870 
2170 
2222 
3372 
4297 
4638 


2329 
W449 


1186 
1208 
1237 


Ti71 
1198 
1227 
1239 


1218 


1087 


1871 
2171 
2270 
3373 
&298 
86393 


2518 
4614 


1187 
1213 
1238 


4175 
1200 
4229 


1219 
1090 


1872 
2218 
2271 
3374 
4299 
4640 


‘2605 


8694 © 


fl 


- 1190 


1219 
1239 


11846 
1201 
1230 


W112 


-EOSTB_ 
EOSTYP 


EQ 
EQFN 
EQLSP 
EQSP 
EQTYP 


EQUVCL - 


EROR 
ERORCL 
ERORFEN 
ERRBAS 
ERRBUF 
ERRCF 
ERRLCL 
ERRLSP 
ERROR 
ERRSP 
ERRTKY 
ERRTSP 
ERRTYP 


ESAICL 
ESALIM 
ESASIZ 
ETIMSP 
ETMCL 


EXPERR 


type 


OUTPUT 
DESCR 
ENDEX 
DESCR 
DESCR 


value 


OUTPUT, NRMEND, (Le... 


ARGNER,0,0 

ABNDCL 

ENDFN, FNC, 0 
ENFILE,0,1 
END,0,0 

*ENDFILE* 

0,0,0 

* END! 

OUTPUT, STATHD 
EXNOCL, EXNOCL 
BKSPCE 

NME 

ENMEFN, FNC, 3 
ENME,0,3 

ZEROCL 

WCL, NMOVER 
PDLPTR, DESCR*SPEC 
TMVAL, TXSP 

NME 
VVAL, TSP, SCDTER, .-. 
ENMIFN, FNC, 3 
ENMI, 0,3 

PDLPTR, 3*DESCR 
YPTR, DESCR, VVAL 
TRAPCL,0,,ENMI2, <<. 
YPTR, K,,ENMIC 
XCL 

EOSTYP,0,0 


- 


17) 


ADD 
EQ,0,2 
*= @ 
"EQ? 
_—o 
0,0,0 

ERRTYP, 28 

ERORFN, FNC, 1 
EROR,0,1 
CARDSZ+*+STNOSZ-SE. ee 
CARDSZ+STNOS2-SE... 
* (34HOERRORS DET... 
0,0,r 

*ERRLIMIT * 


ERRBUF,0,0,0,CAR... 
ERRTSP,0,0 
*ERRTYPE* 

9,0,1 


0,9,0 
ESASIZ*DESCR,0,0 
50 

*,TIME = ¢ 

0,0,0 


EXPVAL 

EVAL, 0,1 

*EVAL® 

SCL, 0 
ZPTR,XPTR,YPTR,As.. 
‘EXTERNAL * 

0,0,0 

ERRTYP, 22 

0,0,0 

50000,0,1 
*(1HO,115,21H ST... 
0,0,I 

0,0,9 

0,0,0 

ADD 

EMSGCL, ILLEOS 
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references 


6109 


5134+4 

0387 4668 
5952 

5471 

5953 

0913 6266 
6265 


- 5096 5104 


5124 
5825 
6135 
2112 
5472 
2972 
2932 
2952 
3004 
6136 


‘2973 


2116 
5473 

2982 2982 
3006 

2977 2978 
3006+ 

3836 

1358 

1120 

0390 0394 
1030 1061 
5827 

5954 

4079 4945 
5955 

0931 0940 
0582 0583 
6110 

1092 

5474 

1099 

5567 

0408 

5246 5248 
5300 

2528 2566 
1104 1105 
5251 

5313 

5076+ 5081 
5164 5169 
5194 5197 
5221 5224 
0407 1096 
1097 

5429 

4646 4084 
0419 0420 
5089 5093 
5829 

5956 

5957 

1687 

1877 

0517 6263 
1266 1272 
1568 1568 
1287 1289 
1568 

5112 

1568 1570 
1275 1278 
1277 1278 
6059 : 
1272 


OSS REFERENCE 


2984 


0493 


1100 


4953 


0588 


1109 


5140 
5172 
5200 
5225+ 
1097 


4163 
4Ou4 
5093 


1280 
1305 
5112 


1284 
1280 


0915 
1106 


0617 


1910 


5143 
5175 
5203 
5227 
4660 


4082 
5110 


1281 
1307 
5124 


1284 
1292 


0936 0247 0973 
1117+ 5428 
1111 

5146 5151 5154 
5178 5181 5184 
5206 5209 5212 
5230 5233 5236 
5161 

8161 5016 5086 
5129 

1294 1295 1298 
1329 1330 1331 
5128 5128 5130 
1286 1286 1291 
1293 1310 1324 


0996 


5157 
5187 
5215 
5239 


5087 


1314 


1309 


1007 


5160 
5190 
5218 


5088 


3317 


<6) 


FAILKY 
FAILPT 
FAILSP 
FALCL 
FALKY 
FALPAT 
FARB 
FARBFN 
FARB1 
FARB2 
FARB3 
FATBAK 
FATBLK 
FATHER 


FENTR 
FENTR2 


defn 


1631 
6059 
1327 
1265 


5690 


1271 
1317 
1324 
1275 
1284 
1298 
1299 
1313 
1319 
6193 
1633 
1669 
1635 
1636 
1660 
1647 
1655 
1678 
1656 
1661 
1659 
1938 
5703 
0274 
5430 
5036 


§323 
6378 
6194 
5328 
5329 
5322 
2710 
6137 
2726 
2715 
2717 
0529 
0541 
0261 


0531 
0534 
5431 
0266 
5673 
5517 
3993 
4051 


type 


PROC 
DESCR 
RCALL 
PROC 


DESCR 


PUSH 
ADDSIB 
ADDSON 
RCALL 
GETDC 
ADDSIB 
AEQLIC 


“AEQLC 


AEQLIC 
STRING 
PROC 
PUSH 
POP 
PUSH 
SETAC 
AEQLC 
GETDC 
POP 
SETAC 
SPOP 
POP 
EXREAL 
DESCR 
EQU 
DESCR 
RRTURN 


CROSS REFERENCE 


value 


EXPVAL 
EXP,0,2 
EXPRND, BLOCK, CNDSIZ 


e 


0,0,0 


EXPRND 

EXPRND, EXELND 
EXOPND, EXPRND 
EXOPCL, BINOP,,» (Rees 
EXOPCL, EXOPCL, 2*. «+ 
EXPRND, EX ELND 
EXPRND, FATHER, 0,-¢+ 
EXPRND, 0, EXPR10 
XPTR, FATHER, 0, pReee 
‘ EXPRESSION? 

, 

SCL 

XPTR 

(OCBSCL,OCICL, PA... 
SCL, 1 

SCL, 0, ,EXPV6 
XPTR,XPTR,DESCR 
SCL 

SCL 2 
(XSP,TXSP,TSP,HE+e- 
SCL ; 
ZPTR,XPTR»YPTReAe ee 
0,0,0 

10 


-EXTSIZ*2*DESCR,0,1I 


1 


FAILSP,0,0 
FAILPT,TTL*MARK, «oe 
"PAIL! 

0,0,1 

STFCSP,0,0 
FAILPT,0,P 


9 

FARB, 0,2 

PDLPTR, 3*DESCR 
LENFCL,0,FARB1 
TVAL, TXSP 

F2PTR,1 

FBLOCK, BLOCK, FBLKRQ 
DESCR 


NEXFCL, 2*DESCR 
F2PTR, FBLOCK, NEXFCL 
FBLKSZ ,0,B 

10*DESCR 

0,0,0 

0,0,0 


e 


FENTR 
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refer ences 
2758+ 3006+ 4439 


1266 
0939 
1198 
1268 
1295 
1317 
1282 
1313 
1299 
1269 
1279 
1291 
1309 
1275 
1315 
5277 
1681 
1646 
1683 
1698 
1652 
1679 
1648 
1670 
1647 
1657 


1670 


1894 
4812 
3510 © 
4771+ 
0804 
1739 
1926 
1948 


1998 © 


2210 
2280 
2499 
3346 
3609 
3757 
3912 
8064 
4347 
4480 
4550 
LOHUK+ 
4766 
4909 
5014 
0361 
5322 
5323 
1588 
1591 
0361 
6137 
6341 
2715 
2711 
2713 
0539 
0532 
1157 
1321 
0526 
0545 
0541 
0532 
0534 
§125 
4051 
3172 


0952 
1236 
1271 
1298 
1318 
1296 


1303 


1322 


1685 


1649 


1652 
1676 


6264 
3513 


1622 
1770 
1928 
1950 
2025 
2212 
2284 
3040 
3366 
3617 
3759 
3914 
4091 
4374 
YOB4 
4550 
4676 
4768 
4911 
5025 


6378 
§112 


2719 


1159 
1456 


5431 
0541 
5130 
61171 


0959 
4690 
1274 
1299 
1324 
1311 


2518+ 


1673 


5430 


1624 
1777 
1930 
1952 
2054 
2227 
2284 
3042 
3423 
3639 
3761 
3916 
4127 
4398 
4484 
4573 
4683 
4796 
4978 
5255 


2719 


1204 
1457 


5518 
0542 
5131 


0988 


12793 
1301 
1327 
1325 


2605¢ 


1666 
1792 
1930 
1952 
2071 
2229 
2303 
3120 
3435 
3640 
3790 
3918 
4129 
4458 
4493 
4582 
4690 
4805 
4980 
6148 


1287 


0543 


0999 


1281 
1301 
1328 


2815 


1686 
1803 
1932 
1954 
2101 
2237 
2312 
3238 
3437 
3640 
3792 
3966 
4221 
4459 
4503 
4597 
4691 
4820 
4982 


1299 


1026 


1287 
1303 
1331 


1695 
1862 
1944 
1967 
2117 
2237 
2319 
3254 
3505 
3657 
3794 
3968 
4236 
4467 
4516 
4599 
4700 
4886 
4987 


1301 


1057 


1292 
1305 
1332 


1712 
1922 
1944 
1969 
2125 


2238 


2320 
3271 
3507 
3700 
3832 
3977 
%239 
&468 
4522 
4608 
4706 
4888 
4987 


1303 


V175 


1293 
1310 


1722 
1924 
1946 
1971 
2162 
2263 
24608 
3273 
3535 


3724 


38651 
3984 
4247 
4476 
4547 
4627 
4714 
4890 
4988 


4305 


1298 
1313 


1736 | 


1926 
1948 
1973 
2164 
2268 
2496 
3322 
3596 
3737 
3876 
3994 
4255 
4478 
4549 
4629 
4731 
R9CT7 
5003 


1319 


symbol 


FENTR3 
FENTRS 
FENTRS 
FGOND 

FGOTYP 
FIELD 

FIELDS 
FIELD1 
FINDEX 


FLDCL 
FLOSIN 
FLDSSP 
FLITYP 
FNC 


FENCE 


FNC EEN | 


FNCERY 
FNCEPT 
FNCESP 
FNCFCL 
FNCFFN 
FNCLKY 
FNCLSP 
FNCPAT 
FNCPL 
FNCPLE 
FNCTYP 
FNEXTR 
FNEXT1 
FNEXT2 
FNLIST 
FNME 
FNMECL 
FNMEFN 
FNME1 
FNTRFN 
FNTRLP 
FNVLCL 
FORBLK 
FOREOS 
FORJIRN 
FORMND 
FORRUN 
FORRUR 
FORWRD 
FRDSCL 
FRETCL 
FRETS? 
FRNCL 
FRSGPT 


FRTNCL 
FRWDTB 
FTABLE 
FTBLND 


2883 
6155 
5319 
6383 
6195 
5475 
6156 
5341 
6197 
5318 
5621 
6027 
0300 
4174 
4178 
4196 
5911 
2914 
5476 
6138 
2916 
6111 
4011 
S414 
1361 
1358 
1345 
5692 
1348 
1351 
1342 
5745 
5704 
6198 
5693 
5766 


5519 


a eee 


5779 
5897 


PROC 
DESCR 
DESCR 
DESCR 
STRING 
DESCR 
DESCR 
DESCR 
STRING 
DESCR 
DESCR 
LHERE 
EQU 
PROC 
APDSP 
PROC 
DESCR 
PROC 
DESCR 
DESCR 
AEQLC 
DESCR 
INCRA 
DESCR 
PROC 
MOVD 
MOVD 
DESCR 
AEQLC 
STREAD 
PROC 
DESCR 
DESCR 
STRING 
DESCR 
DESCR 


DESCR 


DESCR 
LHERE 


CROSS REFERENCE 


value 


PROTSP, 0 
WCL,1,,FENTRS 
PROTSP,RPRNSP 
0,0,¢ 

3 

¢ 

ARG 

DTICL, XPTR 


FIELD,0,1 
FIELDS,0,2 
*FIELD® 

6 


e 

FNCE,0,2 
FNCESP,0,0 

FNCEPT, TTL#MARKg oe 
"FENCE? 

FNCFFN, FNC, 2 
RTNUL3 ,0,2 
FNCLSP,0,0 
*FNCLEVEL® 
FNCEPT,0,P 
FNLIST,(,0 

e 

5 

VALTR 

TRACSP, TRLVSP 
VALTR : 
FNLIST, TIL#MARK, ... 
NME ~_ 
FNMEFN, FNC, 2 
FNME, 0,2 
LENFCL, 0¢TSALT,T. oe 
FENTR, 0,2 

WCL, 1 

0,0,0 

FORWRD 

BRTYPE, EOSCL 
BRTYPE, STYPE 

0,0,9 
UNIT, 0, ,FOREOS 
INBFSP, UNIT, FORR... 


° 
4*DESCR,0,0 
0,9,0 
*FRETURN® 
0,0,0 
0,PTR,0 


0,0,0 


FTABLE, TTL*#MARK,.e« 


e 
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5779 


references 
4053 
8012 
4040 
1026 1042 
1016 5433 
5545 5895 
5831 
3740 
1183 3050 
4941 4963 
3562 3584 
5958 
5959 
0458 0542 
1707 1731 
3694 4&212 
5462 5463 
5471 5472 
5480 5481 
5489 5490 
5543 5544 
5785 5841 
5926 5928 
5944 5946 
5962 5964 
5980 5982 
5998 6000 
6016 6018 
6044 6047 
6327 6330 
6360 6363 
6399 6402 
6155 
6384 
0362 
5318 6383 
5319 
2887 
5475 
3187 3216 
5341 
0362 
0526 0535 
5911 
6112 
4136 
3201 
5621 5901 

. 6138 

2904 — 
5476 
2960 
5629 
4038 
4063 4073 
0862 091784 
1348 
1362 
0952 0959 
1343 1356 
1349 1351 
0868 0972 
474s 
1534 3238 
6267 
0920 0969 
0556 0558 
0603 0605 
0657 0658 
0799 0800 
1567 1587 
1343 1805 
5779 5779 


1072 


3281 


0800 
1765 
4216 
S464 
5473 
5482 
5494 
5546 
5912 
5930 
5948 
5966 
5984 
6002 
6020 
6074 


6335 


6368 
6408 


0535 


5911 


8077 
0928 


0965 
1362 


0995 
3250 


03987 
0559 
0623 
0658+ 
0801 
3162 
1418 
6283 


3347 


1208 
1788 
4363 
5465 
5474 
5483 
5492 
5548 
5914 
5932 
5950 
5968 
5986 
6004 
6022 


6078 


6338 
6371 


4518 


5911 


4090 


4690 


1006 
4187 


1010 


0559 


0648 
0672 


3222 


3543 


1522 
2100 
4397 
5466 
5475 
5484 
5493 
5625 
5916 
5934 
5952 
5970 
5988 


6006— 


6024 
6090 
6341 
6374 


4553 


6282 


4126 


4692 


1029 


6268 


1038 
0561 
0653 
0674 


4103 


3560 


1585 
2120 
5371+ 
5467 
5476 
5485 
5494 
5627 
5918 
5936 
5954 
5972 
5990 
6008 
6032 
6094 
6346 
6379 


4136 


1060 


1068 
0569 
0654 
0713 


§113 


3928 


1606 
2258 
5371+ 
5468 
5477 
5486 
5495 
5629 
5920 
5937+ 
5956 
5974 
5992 
6010 
6035 
6098 
6349 
6384 


8175 


1356 


0600 
0654 
0718 


4917 


1617 
2484 
5371+ 
5469 
5478 
5487 
5496 
5631 
5922 
5940 
5958 
5976 
5994 
6012 
6038 
6105 
6352 
6389 


4197 


1361 


0602 
0655 
0762 


9 


4917+ 


1646 
3118 
5461 
5470 
5479 
5488 
5536 
5633 
5924 
5942 
5960 
5978 
5996 
6014 
6051 
6322 
6355. 
6395 


1482 


0603 
0656 
07935 


« 


bt te, 
(ies 


a f 
‘ht vip 


symbol — 


FTERBR 
FTERST 
FTLCF 

FTLEND 


FTLEN1 
FTLEN2 
FTLENS 
FTLTST 


FTOTYP 
FTRCSP 


' FULLCL 


FULLSP 
FUONTCL 
FUNTSP 
FXOVR 
FXTREN 
FIPTR 
F2PTR 


~6C 


GCBA1 
GCBA2 
GCBA4 
GCBB1 
GCBB2 
GCBB3 
G7-BB& 
GCBB5 
GCBLK 
GCGOT 
GCLAD 
GCLADO 
GCLAD4& 
GCLAD7 
GCLAMO 
GCLAM4 
GCLAM5 
GCLAP 
GCLAPO 
GCLAP1 
GCLAP2 
GCLAP3 


GCLAP4. 


GCLAPS 


GENVIX 
GENVRZ 
GENVSZ 
GESP 

SNVARI 


GNVARS 


CROSS REFERENCE 


type value 


SELBRA SCERCL, (TSALF, FA... 
ACOMPC ERRLCL,0,/FTLEND... 
FORMAT ' (6HTERROR, 13, 13-6. 
OUTPUT OUTPUT, FTLCF, (ER--. 


AEQLC DMPCL,0,,END1 
ISTACK , 

MSTIME XCL 

SETAC SCERCL,2 


EQU 6 
STRING *FTRACE* 
DESCR 0,0,1 


STRING *FULLSCAN® 


-DESCR 0,0,0 : 
. STRING *FUNCTION® 


OUTPUT OUTPUT, PRTOVF 
DESCR FNEXTR,0,2 


_DESCR 0,0,0 


DESCR 0,0,9 

PROC , 

ACOMP BKPTR,OBEND,GCLAD 
GETAC ST1IPTR,STIPTR, LNe oe 
PUTDC GCBLK,DESCR,ST1IPTR 
SETAC BKPTR,OBLIST-DESCR 
ACOMP BKPTR,OBEND,GCLAP 
MOVD ST2PTR,ST1PTR 
GETAC ST1IPTR,STIPTR,LN... 
PUTAC ST2PTR,LNKFLD, ZE... 
DESCR GCXTTL,0,0 


-DESCR 0,0,1 


MOVD CPYCL,HDSGPT 
BKSIZE BKDX,TTLCL 

SUM TTLCL, TTLCL, BKDX 
MOVD MVSGPT, TTLCL 
BKSIZE BKDXU,TTLCL 

SUM TTLCL, TTLCL, BKDXU 
MOVA BKDX, BKDXU 

MOVD TTLCL, HDSGPT 
BKSIZE BKDXU, TTLCL 

SETAC BKDX,3*DESCR 
TESTFI TTLCL, MARK,GCLAPS 
GETD DESCL, TTLCL, BKDX 
DECRA BKDX,DESCR 

SUM TTLCL, TTLCL, BKDXU 
GETD TTLCL, PRMPTR, BKDXU 
GETD DESCL, TTLCL, BKDX 
DECRA BKDX,DESCR 

DECRA BKDXU,DESCR 


v 
GETSIZ BKDX,BKICL 
GETD DESCL, BK1CL, BKDX 
DECRA BKDX,DESCR 
DECRA BKDX,DESCR 
MOVD BKICL, TOPCL 
DESCR 0,0,0 
DESCR 0,0,0 
DESCR 0,0,0 
GETD GCMPTR, PRMPTR ,.BKDXU 
DECRA S8KDXU,DESCR 
DESCR GCXTTL, TTL*#MARK,««- 
PROC ADD 
DESCR GE,0,2 
PROC , 


RCALL XPTR,GNVARI,XPTR.«.» 
RCALL ZPTR,GENVAR,ZSPP... 
RCALL ZPTR,GNVARS, XCLy,eoe 
STRING ‘GE* 

PROC GENVAR 


PROC GENVAR 
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references 
5249 5249 
5192 5243 
. 5076+ 

5144 5147 
5198 5210 
5090 

5076 5136 
5086 

5141 5155 
5207 5213 
1021 

§298 

2407 2414 
2767. 2786 
5296 

3949 3982 
6269 

4006 4006 
5631 

0525 0526 
0526 0528 
0570 0624 
0698 

0699 0702 
0701 

0713 O718 
0741 

0737 

0734 

0733 

0704 0705 
0801 0302 
0693 

0713 

0720 0723 
0710 

0795 

0785 0789 
0780 0780 
0727 

0762 

0745 

O747 

0760 

0753 O754 
0750 

0777 

0775 

0768 0769 
0765 

0689 0705 
0833 

0821 0825 
0816 0817 
0819 

0828 

0687 0688 
0796 5118 
0682 0804 
0691 

0688 

5746 5769 
5833 

5960 

0344 0351 
1181 1224 
2974 3048 
3303 3396 
47b0+ 5065 
1745 1775 
3427 4718 
4315 4900 
5961 

2030 2233 
5068 

2381 3881 


5251" 


$152 
5228 


5173 
5231 


2466 
2826 
6270 
4021 
0535 
0528 
0662 


0705 


0803 


0835 


0689 


0399 
1755 
3062 
3541 


3243 
4798 
4996 
2240 


5062 


5158 
5246 


5182 
5234 


2495 
2834 


4021 


0538 
0529 
4599 


0804 


0631 
2244 
3070 
3558 


4350 
5028 


2289 


5162 
5246 


5185 
5237 


2534 
2867 


4032 


0534 


0805 


0641 
2247 
3079 
4271 


2292 


5167 


5188 


5240 


2589 


4032 


0535 


0669 
2296 
3086 
4275 


2521 


5170 


5195 


2640 


0537 


0908 
2300 
3280 
%290 


3381 


5176 


5201 


2692 


0538 


1144 
2335 
3288 
&294 


3741 


5179 


5204 


2711 


1168 
2342 
3297 
aus 


8709 


symbo 
GOBRCL 


GOGOCL 
GOTG 
GOTGCL 
GOTGFN 
GOTL 
GOTLC 
GOTLCL 
GOTLIN 
GOTLV 
GOTLV1 
GOTL1 
GOTL2 
GOTL3 
GOTO 
GOTOCL 
GOTOFN 
GOTOND 
GOTOTB 
Gr 
GTFN 
GTOCL 
GTSP 
HDSGPT 
HEADSP 


I- 


IBLKTB 
ICLBLK 
ICLEND 
IDENFN 
IDENSP 
IDENT 
IIDTP 
ILCHAR 
’ TLITYP 
ILLBIN 
ILLBRK 
ILLDEC 
ILLEOS 
ILLINT 
INATL 


INBFSP 
INBUF 
INCGCF 
INCL 


IND 
INDFN 
INDV 
INIT 
INITB 
INITCL 
INITD1 
INITE 
INITEN 
INITLS 
INLIST 
INPUT 
INSATL 
INSP 
INSW 


INTERP 
INTGER 
INTGFN 
INTGSP 


defn 
5432 


5520 
1508 
5477 
6113 
1519 
1545 
5478 
67114 
1523 
1531 
1534 
1537 
1540 
1553 
5479 
6.115 
5694 


1841 | 


5835 
5433 
6203 
5767 
5712 


0321 


5616 
5731 
5837 
6204 
4466 
5382 
6515 
03091 
6516 
6517 
6518 
6519 
6520 
5622 


5568 
5614 
6531 
5521 


4346 
6082 
4353 
1562 
54&97 
5480 
0350 
5498 
6116 
5899 
5344 
5358 
5357 
6205 
5293 


1582 
1966 
5839 
6206 


DESCR 
STRING 


6 


CROSS REFERENCE 


value 
0,0,0 
0,¢0,0 


e 
GOTGFN,FNC,1 
GOTG, 0,1 


es 

XPTR, INVOKE, XPTR... 
GOTLFN, FNC, 1 

GOTL, 0,1 

TRAPCL,0, ,GOTLV1... 
XPTR, RETCL,GOTL1 
XPTR, FRETCL, GOTL2 
XPTR, NRETCL, GOTL3 
OCBSCL, XPTR, ATTRIB 


e 
GOTOFN, FNC, 1 
GOTO, 0,1 


ADD 
GT,0,2 
FGOTYP,0,0 
rey wd 
0,PTR,90 
0,0,0,0,0 


ICLBLK, TTL#MARK, «-- 


v 

IDENT,0,2 

*IDENT® 

ia 

I,0,1 

*YLLEGAL CHARACT... 
05 

*BINARY OPERATOR... 
*ERRONEOUS OR MI... 
‘ERRONEOUS REAL ... 
‘IMPROPERLY TERM... 
‘ERRONEOUS INTEGER? 
INLIST, 0,6 ; 
INBUF,0,0,STNOSZ... 
CARDSZ+¢DSTSZ+1 

* (33H1INCOMPLETE... 
0,0,0 


td 
IND,0,1 
XPTR,0,RTXNAM,NO... 


e 

ABNDB,0,0 
INITFN,FNC,1 

XPTR, INITB,9 
DTEND+*+DESCR,0,0 
INIT,(,1 

INITLS, TTL+MARK,... 
INLIST, TTL#MARK,... 
UNITI,0,1 

INSATL, TTL*#MARK,..- 
*INPUT* 

1,0,1 


oe 


ed 
INTGER,0,1 


references 
0979 0983 
1058 

0978 0982 
6113 

0898 0982 
5477 

61184 

1522 

0978 1017 
5478 

1547 

1523 1523 
1531 

1534 

1537 

6115 

1033 

5479 

098s (994 
0976 10174 
5835 

5962 

0980 

5963 

0707 0708 
1639 1661 
2337 2370 
4688 1719 
2327 2518+ 
4016 4146 
“§017 5262 
5297 5299 
5334 5338 
5383 5384 
6392 

0392 0O405 
5616 5616 
5616 

5964 

5965 

5837 

1866 

1245 

0870 

108% 1258 
1255 

0876 1087 
1252 

1619. 1649 
3769 3774 
0379 1122 
5568 5569 
5102 

1601 1602 
3688 3690 
3757 3790 
&348 

6116 

0350 0352 
0917 

0355 

9355 

5480 

0339 0340 
5344 5622 
0369 5345 
3767. 5357 
§294 5346 

1618 1648 
4217 

0422 1585 
5839 

5968 

5263 5969 


* INTEGER * 
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0989 


0992 
1022 


1050 


1525 


1047 


0743 
2304 
2378 
1745 
2604 
4260 
5283 
5301 
5340 
5385 


1362 
6284 


1335 


1709 
3774 
1351 
5570 


1603 


3736 
3851 


0354 


5899 
5902 


6291 
5967 
1708 


1586 


3000 


1003 1017 1022 1040 1070 


1055 


0778 
2310 
2421 
1775 
2738 
4279 
5285 
5303 
5353 
5386 


1733 
3852 


5571 
1608 


4512 
3912 


0355 


6289 


1732 


1586 


1018 


1466 


2311 
2437 
1968 
2822 
4350 
5287 
5305 
5355 
5389 


1767 
4218 


5572 
3107 


4520 
3966 


1766 


1589 


1023 1027 1051 1056 


2317 2321 2323 2334 
2750 2755 2989 2995 


-1980 1999 2023 2057 


2864 3243 3740 3893 
8600 4610 4839 5006 
5289 5291 5293 5295 
5307 5312 5328 5339 
5358 5359 5382 5382 


5396 5402 5430 5750 


= 


1790 2269 3116 3696 


3109 3358 3360 3696 
8521 48522 
4127 6082 


1789 2259 3115 3695 


1589 1591 1594 3192 


, 


0 


INTR10 


INTR13 
INTR27 


TOBLSZ 
TOKEY 


IOOP 
IOSP 
IOWTR 


TIO2PTR 


IO3PTR 
IOUPTR 
IPDTP 
IRDTP 
ITEM 
ITEMCL 


ITEMEN | 


ITEMSP 
IVDTP 
K 

KEYC 
KEYFN 
KEYN 
KEYT 
KEYTEN 
KEYTR 
KEYTR3 
KEYTR4 
KEYTRS 
KEYV 
KEYWRD 
KNATL 
KNEND 
KNLIST 
KVATL 
KVEND 
KVLIST 
L 
LABTEN 
LABTR 
LASTSF 
LBLTB 
LBLXTB 
LCPTR 


LE. 
LEFN 
LEFTSP 
LEN 


defn 


6532 
5172 


51493 


5150 
5184 
5187 
5190 
5175 
5178 
5181 
1714 
1704 


1722 
1708 
1713 
1718 
1604 
1606 


1600 


5434 
5522 


3831 
5713 
5644 


5643 


5647 
5648 
5383 
5384 
3605 
5481 
5841 
6207 
5385 
0322 
4374 
6084 
4364 
4377 
6117 
8062 
4068 
4075 
4080 
4369 
4360 
5560 
5309 
5282 
5561 
5342 
5311 
0323 
6118 
4089 
6533 


5751 


1845 
5843 
5597 
2036 


CROSS REFERENCE 


yeferences 


value 
*(1HO,115,19H MS... 5110 
ERRTYP, 1 1690 
1894 
2061 
3392 
4610 
0460 
3226 
4066 
: 2499 
ERRTYP, 13 3545 
ERRTYP, 10 3949 
ERRTYP, 16 2423 
ERRTYP, 24 1511 
ERRTYP, 19 1509 
ERRTYP, 15 2374 
XSP,XPTR 1720 
: 3505 
4597 
XPTR, INVOKE, (XPT... 1707 
INSW,0,,INTV3 1722 
XPTR, I, ,RTXNAM 1722 
XPTR,XPTR,DESCR 1708 
INCL, 0 1606 
XPTR, FNC, ARGNER,..- 1603 
; 1545 
2125 
4522 
2*DESCR,0,B 3777 
0,09 0378 
4048 
scL 3823 
0,0,0,0,0 3874 
0,0,0 3867 
3883 
0,0,0 3867 
3903 
0,0,0 3868 
0,0,0 3872 
I,0,P 2222 
I,0,R 1871 
P 5841 
AREFN, FNC, 0 1227 
ITEM, FNC, 1 5970 
‘ITEM! 5971 
I,0,S 1867 
10 2973 
XPTR, INVOKE, (XPT... 4363 
KEYWRD,0,1 - ar 
XPTR,KNATL,XPTR,.-- 4374 
KEYWRD 4066 
KEYTR,0,2 5633 
< 4089 
PROTSP, 0 4094 
PROTSP, XSP 4073 
PROTSP, YSP 4077 
ATPTR,KVATL,XPTR... 4364 
4377 
KNLIST,0,0 4364 
3 5282 
KNLIST, TTL¢MARK,..+ 4866 
KVLIST 020 4369 
; 5311 
KVLIST, TTL#MARK, --- 5311 
12 3425 
LABTR,0,2 5627 
KEYTR 6118 
‘(28H LAST STATE... 5074 
0397 
1408 
0,0,0 0593 
0613 
ADD 5843 
LE, 0,2 5974 
‘LEFT? 1423 
5845 


ANY 
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1715 
1904 
2073 
3400 
4611 
1695 
3494 
4676 
2783 


3982 
2435 
1541 
1545 
3871 


3507 
4820 


1703 


1586 
2280 


3809 
0389 
4086 
3827 
3876 
3868 
3884 
3883 


3876 
3874 
2278 


3377 
6105 


2219 
3245 


4379 


6117 


6084 


4867 


5311 


0887 
1421 
0600 
0614 


1720 
1909 
2122 
3744 
4612 
3128 
366 5+ 
5099 
2932 


4553 
2457 
1547 
4309 


3617 
4888 


1624 
3254 


1108 
4165 
3879 
3869 


3891 
3891 


4641 


2275 
4213 


4869 


5561 


0601 
0617 


17487 
1982 
2171 
4262 
4613 
3153 
3665¢ 
5099 
4408 


4559 
2837 
4415 


3759 
4911 


1670 
3724 


1109 
4855 
3879 
3869 


3899 
3892 


3375 
4351 


52862 


5304 


0607 
0618 


1775 
1989 
2222 
4281 
G64 
3172 
3707 


4916 
2885 
4892+ 
3761 


1722 
4110+ 


1116 
R877 


3880 
3871 


3893 


4636 
4366. 


5282 


6286 


0608 
0619 


1874 
2001 
2278 
4301 
4615 
3172 
3951 


2902 


4894 


3792 


1739 
4236 


4117 
5084 


3895 
3872 


3894 


WG17 


5560 


0608 
0621 


1881 
2005 
2329 
4351 
4631 
3201 
3951 


2935 


3832 


1777 
4239 


1129 


3898 


3880 
3894 


4613 


5903 


0609 
0623 


1886 
2029 
3379 
4437 


3201 
3984 


3001 


4247 


1803 
4374 


1350 


3899 
3881 


3895 


5274 


6285 


0610 


1891 
2059 
3384 
4609 


3226 
&012 


3018 


4549 


2101 
4398 


3899 
3903 
3881 
3898 


6443 


0612 


LISTCL 


LISTSP 


_ LNKFNC 
LNKF1 
LNKF4 
LNKF5 
LNKF6 
LNKF7 
LNKF9 
LNKIR 
LNKIV 
LNKRI 
LNKRV 
LNKVI 
LNKVR 
LNODSZ 


defn 


5194 
5415 


5845 
6211 
6212 
4475 
5847 
6213 
5416 


5598 
4385 


5482 | 


6119 
5417 
5569 
0259 


3357 
3364 
3408 
3418 
3402 
3369 
3414 
3387 
3381 
3384 
3395 
3398 
3390 
5435 


5571 
2598 
5483 
6139 
3270 
5849 
6214 
3332 
3293 
3338 
3317 
3302 
3283 
3296 
3326 
3308 
3329 
4539 
0582 
0584 
0623 
0596 
0617 
0600 
5851 
0621 
6215 
5546 
5599 
2600 
2605+ 
2612 
2610 
2604 
2054 
2061+ 
5645 
0302 
0262 
5330 


DESCR 
STRING 
STRING 
PROC 
DESCR 
STRING 
DESCR 


STRING 
PROC 
DESCR 
DESCR 
DESCR 
SPEC 
EQU 


PROC | 
PUSH 
ACOMP 
GETSIZ 
INCRA 
GETD 
POP 
INTRL 
RCALL 
INT 


CROSS REFERENCE 


value 


ERRTYP, 14 
0,0,0 


LEN, 0,1 
*LEN®* 
‘LE? 


e 
LGT,0,2 
"LGTt 
1,0,0 


‘LIST? 


¢ 

LITFN, FNC, 0 

LIT,0,1 

0,0,0 
INBUF,0,0,0,CARD... 
3*DESCR 


& 

(XCL, ZCL, TCL, YPT..- 
WCL,WPTR, LNKF9,L..«.- 
WCL, Z2CL 

TCL,DESCR 

ZPTR, 2CL,. TCL 

ZPTR 

XPTR, XPTR 
XPTR,GNVART, XPTRee« 


XPTR, XPTR,INTRigeee. 


XSP,XPTR 
XSP, XPTR. 
XSP, XPTR 
NODESZ+#DESCR, 0, P 


INBUF, 0,0,0,STNOSZ 


e = 
LNTHFN, FNC, 3 
LNTH, 0,3 


e 

LOAD, 0 v 2 

*LOADt 

ZEROCL 

YCL,1 

ZEROCL 
XPTR,DESCR 
XSP,1 ; 
XSP,1 

YCL, 1 ; 
ZEROCL — 
LODCL, YCL 
ZEROCL 

ARG 

EQUVCL, SPECR1 
LSTPTR, BUKPTR 
FRSGPT, LCPTR 
AXPTR,SPECR1 
LCPTR, LNKFLD, EQUVCL 
LCPTR, FRSGPT 
LOCAL,0,2 
LCPTR, 1 


-*LOCAL* 


LNKFNC,FNC,0 

ce 

PATICL, DESCR 
XPTR, EXPVAL, XPTR..« 
SCL 

ZSP, XPTR 
XPTR, I, LPRRTI 
XPTR, ARGVAL, , FAIL 
XPTR,O,-,,LENERR 
0,0,0 

1 

2*DESCR 

0,0,1 
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references 
2061+ 3509 
1637 1663 
2487 2496 
2891 2893. 
3028 3026 
5972 

5973. 

5975 

5887 

5976 

5977 

0377 0388 
W412 1417 
Wis 

6119 

1107) 1214 
5482 

° 1376 1395 
0378 0389 
0585 0588 
4587 4827 
5546 

3405 

3405 3416 
3408 

3370 3371 
3412 

3408 

3377 3391 
3375 

3376 3400 
3378 

3374 

3379 
2030+. 2076 
2345 4319 
1381 1382 
2654 2658 
2037 2061+ 
5483 

5849 

5978 

5979 

3284 

3330 

3298 

3321 

3336 3339 
3294 3336 
3286 
3304" 

3327 ~~ 
3289 

5851 

0635 0675 
0588 0591 
0605 

0587 0588 
0611 

0624 

5980 

0594 

5981 

3308 3314 
0487 0501 
2656 2660 
2605 

2604 

2605+ 
2605+ 

2038 2042 
2057 

0413 0908 
3047 3279 
1448 1449 
1563 4103 


3512 
2425 
2701 
2908 


0418 
1433 
1328 
1425 
1108 


0617 
6307 


3381 


2103 


4337 


1386 
2662 


3336 


0591 


4009 
2664 


2046 


0909 
3540 


4113 


3765 
2430 
2715 
2911 


1098 


1428 
1129 
0618 


3384 


2133 


1388 
2666 


4598 

2442 2449 2464 
2749 2756 2790 
2916 2942 2944 


1128 1349 1372 


1350 
0619 0696 0731 


3388 3392 3396 


2139 2176 2181 


1400 1401 
6139 


4926+ 4933+ 


2668 


2050 


0912 


0913 1463 1464 


2472 
2843 
2988 


1385 


0736 


3399 


2199 


4674 


2976 ‘ 
2856 . 
2997 


1393 


0739 


2338 


MAXLEN 


MAXLSP 


MSG24 
MSS25 
MSG26 
MSG27 
MSG28 
MSG3 
MSG4 
MSG5 
MSG6 
MSG7 
MSG8 
MSG9 
MVSGPT 
N 

NAM 
NAMC2 
NAME 
NAMESP 
NAMEXN 
NAMFN 
NAMGCL 
NAMICL 


NAMLSZ 
NAMP 
NAMV 
NAM3 


defn 


6210 
5727 
T849 
5853 
6216 
53406 
5197 


5523 


6.217 


5291 
1978 
6086 
1988 
1990 
1987 
1918 
1825 
6062 
1940 
6448 
5524 
6480 
6489 
6490 
6491 
6492 


6493 


6494 
6495 
6496 
6497 


» 6498 


6481 
6499 
6500 
6501 
6502 


: 6503 


6504 
6505 
6506 
6507 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
5752 
0324 
2111 
2124 
4394 
6218 
4439 
6065 
5418 
5525 


0275 
2136 
2131 
2121 


type 


STRING 
DESCR 
PROC 
DESCR 
STRING 
DESCR 
SETAC 


DESCR 


STRING 
DESCR 


PROC 
DESCR 
MNSINT 
MNREAL 
LOCSP 
MULT 
PROC 
DFSCR 
ME REAL 
DESCR 
DESCR 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
DESCR 
EQU 
PROC 
PUSH 
PROC 
STRING 
RCALL 
DESCR 
DESCR 
DESCR 


EQU 

RCALL 
LOCSP 
VEQLC 


mee > eae 


CROSS REFERENCE 


value references 
‘LASTNO? 5331 
0,PTR,S 0584 0619 
ADD 5853 
LT,0,2 59862 
‘LT 5983 
0,0,1 37184 3213 
ERRTYP,18 0422 0822 
0699 0710 
0832 5259 
5371+ 5616 
6311 6316 
6383 6388 
6438 
0,0,0 1637 1663 
2590 2616 
2776 2831 
: 2988 2997 
*MAXLNGTH ¢ §292 
5775 
5000,0,1 2374 2971 
0253 
’ 6086 
MNS,9,1 
ZPTR, XPTR,AERROR. « « 1980 1988 
ZPTR, XPTR 1982 
‘X¥SP,XPTR 1981 
ZPTR,XPTR,YPTR,A.e- 1877 
ADD 6062 
MPY,9,2 
ZPTR, XPTR,YPTR,A., oe 1894 
0,0,0 5524 
MSGLST,0,0 — 5082 
‘ILLEGAL DATA TYPE* 6449 
*ILLEGAL ARGUMEN... 6458 
*READING ERROR‘ 6459 
‘ILLEGAL I/O UNIT 6460 
*LIMIT ON DEFINE... 6461 
*NEGATIVE NUMBER... 6462 
*'STRING OVERFLOW* 6463 
*OVERFLOW DURING... 6464 
*PRROR IN SNOBOL... 6465 
*RETURN FROM LEV... 6466 
*FAILURE DURING .-- 6467 
*FPRROR IN ARITHM... 6450 
*YNSUFFICIENT ST... 6468 
*STACK OVERFLOW' 6469 
*LIMIT ON STATEM... 6470 
‘OBJECT EXCEEDS ... 6471 
"UNDEFINED OR ER... 6472 
*INCORRECT NUMBE..-. 6473 
‘LIMIT ON COMPIL... 6474 
tERRONEOUS END SS... 6475 
*EXECUTION OF ST... 6476 
*ERRONEOUS ARRAY... 6451 
‘NULL STRING IN ... 6452 
‘UNDEFINED FUNCT... 6453 
tFRRONEOUS PROTO... 6454 
‘UNKNOWN KEYWORD'* 6455 
"VARIABLE NOT PR... 6456 
‘ENTRY POINT OF ... 6457 
0,0,0 0716 0754 
9 3244 3652 
» 2115 6065 
XPTR 2120 
‘ 6080 
"NAME! | 5273 5275 
TVAL, EXPEVL, TVAL... 4416 
NAM,0,2 
0,0,0 2285 2315 
0,0,0 1637 1644 
2932 2955 
4433 
20 2948 5527 
TPTR, BLOCK, SNODSZ 2122 
TSP,XPTR 2121 
XPTR,S, , NAMV 2129 


4001 
0422 
0720 
5282 
5769 
6321 
6394 


2405 


2623 
2845 


3871 


0769 


3748 


2318 
1663 
2956 


4179 


0734 
5311 
5779 
6326 
6407 


2408 


2642 
2847 


8309 


0780 
&349 


2412 
2988 


5072 


0750 
5344 
5899 
6334 
6422 


2415 
2650 
2850 


§415 


8612 


2749 
2992 


5076+ 


0784 
5347 
5911 
6345 
6425 


2418 
2719 
2854 


4894 


5272 


5134 


0789 
5352 
6028 
6359 
6428 


2467 


2749 
2872 


6441 


0792 
5357 
6280 
6367 
6431 


2535 
2756 
2873 


0819 
5361 
6304 
6378 
6434 


25364 
277°: 
2875 


2752 2756 2927 2931 


2997 


‘4408 4429 


4430 


NULVCL 


NUMBTB 
NVAL 


NVARF 
OBARY 
OBEND 
OBLIST 
OBLOCK 
OBOFF 
OBPTR 
OBSIZ 
OBSTRT 
OCALIM 


OCASIZ 
OCBSCL 


ocIcL 


defn 


2128 
2117 
5672 
0303 


1853 
5855 
QAO 
6088 
5200 
6219 
1369 
0304 
5518 
5570 
5526 


4406 


4437 
4408 
BAI 
4426 
8420 
8417 
2900 
5484 
6140 
5527 
2557 
5485 
6141 
2564 
6220 
2561 
0276 
6534 
5753 
5436 


5203 © 


5206 
5857 
2018 
5705 
6221 
6535 
0305 
5528 


5646 


6536 
0278 
5437 
6307 
6394 
0283 
5754 
0277 
6306 
5439 


0279 
5674 


5529 


DESCR 


FORMAT 
EQU 
DESCR 
EQU 
DESCR 
EQU 
DESCR 
EQU 
ARRAY 
DESCR 


EQU 
DESCR 


DESCR 


- 106 - 


CROSS REFERENCE 


value references 

XPTR 2125 

XPTR, PATVAL, , FAIL 2113 

0,0,0 0367 2927 

1 0396 0863 
14B4 

ADD 5855 

NE,0,2 5984 

3 6088 

NEG,0,1 

ERRTYP,8 1545 2102 

*NE* , 5985 

es 0383 1127 

1 

FBLKSZ,0,0 0531 0532 

INBUF,0,0,STNOSZ... 0380 1124 

0,0,0 : ts 1637 1644 
2997 44o7 

S 2238 2319 

VVAL, TSP, INTR1,NMD4 4417 

TCL, NAMICL,INTR1I... 4435 

TCL, DESCR#SPEC 4426 48426 

TRAPCL,0O, -NMD2,NMD2 4421 4422 

TVAL, DESCR, VVAL 4437 

TVAL,K, ,NMDIC- 4439 

Pe 2914 2919 

NMEFN, FNC, 2 2137 

NME,0,2 5484 

NAMLSZ*SPDR,0,B 0367 ©2932 

ANYC 6141 

NNYCFN, FNC,?2 2019 2562 

NNYC,0,3 5485 

SNABTB, STOP 2561 

*NOTANY'®- : 5987 

XPTR, TBLCS,NNYC2 2523 

3*DESCR 5423 5435 

* (28HITERMINAL DD... 5103 

0,0,0 0726 0797 

NODESZ,0,P 2087 2087 
000 1+ 

ERRTYP,4 20304 3245 

ERRTYP, 3 3597 3612 

NOTANY,0,1 5986 

ANY 5857 

0,0,0 1537 3239 

*NRETURN® 6271 

*(28HINORMAL TER... 5072 

4 

0,0,S 0612 0657 
3159 3410 
4257 4589 

“34434, 3449 

0,0,0 2622 2624 
2639 2641 
2718 2737 
2827 2830 
2872 2872 

*(18HONATURAL VA... 5098 

OBSIZ+3 6304 

OBLIST+DESCR*OBO... 0693 0727 

OBSTRT-LNKFLD 0692 0725 

OBLOCK, TTL#MARK,eo + 6304 

OBSIZ-2 5437 

OBLIST, PTR,S 0583 

256 0278 0283 

OBSIZ 6307 

OCASIZ*DESCR,0,C 0336 0371 
4657 

1500 5439 

0,0,0 0370 0401 
1540 1541 
1664 1706 
3162 3164+ 
8113 4211 
5166 

0,0,0 0456 0457 
1555 1555 


2950 
0921 


2127 
1356 
0534 
1353 


1663 
4429 


4427 


2954 


2947 


2568 


5436 


5095 
2144 


3247 


3262 


0701 
3513+ 
4725 


2629 
2642 
2738 
2831 
2875 


4584 
4583 


6306 


8650+ 


0402 
1555 
1730 
3180 
4215 


1500 
1564 


2951 
0929 


2280 


0544 


2412 
4430 


4439 


2957 


2948 


5443 


2151 
3738 


6272 


1216 
3711 
47524 


2630 
2642 
2739 
2831 
2922 


4824 
4823 


4650+ 


0457 
1565 
1764 
3183 
4362 


1501 
1565 


2956 


0975. 


4236 


2749 
4433 


2362 


2949 


5531 


2151 


4353 


1330 
3738 
4830 


2631 
2643 
2744 
2832 
2923 


5437 


4653 


1500 
1584 
1787 
3222 
4387 


1512 
1583 


4410 

. 1013 1086 1407 
8374 4398 4439 
2752 2756 2988 
6140 

2153 

4913 

2030+ 3051 3171 
3920 3927 3970 
5033 5038 

2632 2636 2637 
2648 2649 2712 
2768 2771 2773 
2835 2847 2868 
2925 2965 2966 
5754 

8653 4654 4655 
1500 1509 1511 
1616 1636 1641 
2099 2119 2257 
3693 4103 8105 
8396 4447 8ug2 
1520 1521 1542 
1588 1587 1615 


1420 


2992 


3132 
&256 


2638 
2716 
2787 
2871 
2968 


8656 


15217 
1645 
3113 
4108 
4494 


1554 


1616 


o 


OUTPSP 
OUTPUT 


PARMS 
PATBCL 


PATICL 


PATND 
PATNOD 
PATSP 
PATVAL 
PATVC 
PATVR 
PATV1 
PATV2 
PATV3 
PCHFST 
PDFN 
PDLBLK 
PDLEND 
PDLHED 


PDLPTR 


5675 


5676 
5755 
5600 
2691 
6142 
2699 
2701 
5440 


2704 | 


6143— 
6521 
4921 
6222 
5859 
4906 
6028 
6102 
2161 
6068 . 
2184 
2179 
2197 
2174 
5347 
5352 
5623 
5441 


6254 
5353 


6223 


5289 
5209 
0325 


5677 


5530 


5695 
2030+ 
6224 
1728 
1739 
1754 
1732 
1742 
1743 
5356 
6090 
6311 
5531 
5547 


5533 


DESCR 


DESCR 
DESCR 
STRING 
PROC 
DESCR 
PUSH 
AEQLC 
DESCR 


PROC 
DESCR 
STRING . 
MOVDIC 


’ STRING 


DESCR 
PROC 
DESCR 
LHERE 
PROC 
DESCR 
GETSIZ 
LOCSP 
LOCSP 
LOCSP 
DESCR 
DESCR 
DESCR 
DESCR 


STRING 


. DESCR 


STRING 
DESCR 
SETAC 
EQU 


DESCR 


DESCR 


DESCR 
DEQL 
STRING 
PROC 
RCALL 
REALST 
AEQLC 
GETDC 
VEQLC 
DESCR 
DESCR 
DESCR 
DESCR 
DESCR 


DESCR 


CROSS REFERENCE 


value 


ARBN 

ONAR, 0,42 

TVAL 

LENFCL,0, TSALT 
1,0,0 


ARBN 

ONRF 0,2 
*UNCLOSED LITERAL‘ 
XPTR, 0, YPTR,0 
‘OPSYN! 

OPSYN, 0,3 


e 
OPTBL, TTL+MARK Oc « « 
e ‘ 


° 

OR, 0,2 

XSIZ,XPTR 

YSP, YPTR 
XSP,XPTR 

XSP, XPTR 


OTLIST, TTL*#MARK, «oe 


OTSATL, TTL*#MARK,y ««« 
OTLIST,0,0 
OUTPUT-DESCR, 0 ,0 


* (1X, 132A1) * 
UNITO,0,I 


“OUTPUT? 
1,0, 
ERRTYP, 21 
3 


0,0,0 


0,0,0 


0,0,0 


XPTR, NULVCL, , NONAME 


* PATTERN ® 


tf 
XPTR, INVOKE, (XPT. 0. 


XSP,XPTR 
INSW,0,,PATV2 
XPTR,XPTR, DESCR 
XPTR,P,,RTXNAM 
CRDFSP,0,0 

UNDF, FNC, 0 

PDLBLK, TTL*#MARK, .«« 


PDLBLK*+SPDLDR-NO.... 


PDLBLK,0,0 


PDLBLK,0,0 
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references 
1636 1642 
1764 1786 
3712 3113 
4108 4113 
4387 4395 
0371 0372 
4657 4658 
0337 
0756 0757 
4186 
6142 
6327 
2708 
2681 
2304 2500 
4531 4536 
6143 
6330 
1249 
4939 4960 
‘5989 
5988 
5859 
6028 6028 
6028 
6068 
2171 2202 
2170 
2169 
2168 
5347 5623 
3798 5352 
2384 2741 
0378 0389 
6086 4165 
5354 
0333 0334 
5072 5074 
5110 5112 
5348 5441 
5290 5349 
2383 2740 
1763 2072 
2863 4259 
5322 5324 
5397 5435 
0254 
1636 166% 
2735 2748 
2861 2873 
1636 1664 
2481 2482 
2601 2734 
2818 2845 
2963 2964 
0939 946 
2027 2028 
5265 
2071 2117 
1731 
1746 
1739 
1732 1733 
1739 
§531 5533 
2423 2435 
1637 1643 
2991 2997 
1637 1643 
2434 2435 
2464 2476 


1645 
1787 
3162 
4210 
4396 
O414 
4673 


0771 


2536+ 
4540 


4971 


6287 


5905 
5906 
2978 
1108 
4855 


0408 
5076+. 
5114 


5991 
2977 


2080 
4278 
5326 
5436 


2447 
2757 
2921 
2448 
2484 
2735 
2850 
2986 
0964 
2058 


2162 


5547 
2457 
1663 


1663 
2438 
2478 


1664 


2098 


3191 
4211 
HOT 
0895 


- 0772 


2721 
G771+ 


6290" 
6292 
3800 
1109 
4877 


0417 
5097 
5116 


4225 


2122 
8325 
5383 
5443 


2451 
2798 
2964 
2450 
2485 
2748 
2854 
2999 


2061+ 


2164 


6311 
2837 
2411 


2411 
2440 
2479 


1705 
2099 
3222 
4214 
4492 
0902 


0818 


3441 


3805 
1116 
5084 


1434 
5098 
5118 


4421 


2147 
5264 
5386 
5444 


2453 
2814 
2986 
2451 
2491 
2757 
2860 


2064 


2212 


2885 
2749 


2422 
2442 
2480 


1706 
2118 
3692 
4215 
GOR 
0903 


3461 


3805 
1147 


4055 
5102 
5120 


2187 
5314 
5387 
5454 


2455 
2818 
2999 
2452 
2492 
2797 
2861 


2268 


23902 
2751 


2423 
2456 
2685 


1729 | 


2719 
3693 
4361 
5165 
TH47 


3513+ 


3856 
1129 


4201 
5103 
5122 


2326 
5316 
5387 
5455 


2504 
2845 


2453 
2513 
2798 
2873 


2935 
2756 


2426 
2457 
2687 


1730 
2256 
4103 
4362 
5166 
1473 


4448 


4226 


1350 


4861 
5107 
5131 


2353 
5318 
5388 
5456 


25146 
2850 


2454 
2514 
2813 
2920 


3001 
2783 


2428 
2459 
2688 


1763 
2257 
4107 
4386 


1474 


e495 


4422 
4048 


“4865 


$108 
5134 


2821 
5320 
5390 
5457 


2601 
2854 


2455 
2690 


2814 . 


2921 


3018 
2988 


2430 
2462 
26945 


PROTER 


PROTEN 
PROTO 
- PROTSP 


PRTOVF 
PRTSP 
PTR 


PUNCH 
PUTI 
PUTIN 


PUTIN1 
PUTOUT 
PUTV 
PUTVU 
PVDTP 
QOLITYP 
QOTSP 


QTSTR 
QUES 
QUESFN 
R 


RBTYP 
READ 
READFN 
READNO 
READ1 
READ2 
READ3 
READY 
READS 
READ6 
REALBP 


5386 
6537 
1997 
6092 
2003 
6227 
2040 
5861 
2654 
5486 


6144 - 


2621 
6225 
5387 
6094 
5863 
3789 
3805 
3809 
3800 
3808 
3818 
3797 
5756 
5757 
6300 
6289 
6299 
5212 


5865 
3595 


5583 © 


6538 
6226 


5355 
3903 
3866 


3881 
3890 
3898 
3899 
5388 
0306 
5584 


-— wo 


4502 
6096 
0326 


0307 
3756 
5871 
6539 
3774 
3777 
3769 
3776 
3782 
3765 
5615 


5 
1 


FORMAT 
STRING 


DESCR 
INTSPC 
PROC 


RCALL 
PROC 
LOCSP 
STPRNT 
DESCR 
EQU 
SPEC 


PROC 
DESCR 
EQU 


EQU 
PROC 
DESCR 
FORMAT 
RCALL 
RCALL 
LOCAPV 
MOVD 
SETAC 
ACOMPC 
BUFFER 


CROSS REFERENCE 


references 


2700 
2783 
2889 
2937 


3017 


wa & 


HOUNPROTECTE..- 


v ss 

PLS,0,1 

XSP, ZPTR 

* PUNCH* 

ANY 

POS,0,1 

LNTH 

POSIFN, FNC,3_ 
POSI,0,3 
XPTR,0,,.»/SCLENR 
‘post 

P,0,P 

UNDF, FNC, 0 
PRINT,0,3 


oe 

OUTATL, AUGATL, (0... 
TPTR, BLOCK, LOBLSZ 
ZPTR,OUTATL, XPTR...« 


_Z2PTR, DFLFST 
 YPTR, UNITO 


ZPTR,0,PRINT2 
PRMSIZ,0,0 
PRMTBL,0,0 
PRMTRM=PRM? ¥-~DESCR 
PRMTBL, TTL+MARK, ee. 


e 
ERRTYP, 6 


PROTO,0,1 


’ 
ANYSP,0,0,0,0 


*(29H ***PRINT R... 
‘PROTOTYPE | 


UNITP,9,1 
TOSP, TO2PTR 


IO1PTR,GNVARS, 10... 


o 

IOSP,IO2PTR 
IOKEY, IOUPTR, IOSP 
P,0,S 

1 


QTSTR,0,0,0,1 


o 
QUES,0,1 
7 


7 


e 

READ, 0,3 
*(1HO,115,16H RE... 
INATL, AUGATL, (IN... 
TPTR, BLOCK, IOBLSZ 
ZPTR, INATL, XPTR, ... 
ZPTR, DFLSIZ 

YPTR, UNITI 
ZPTR,0,READ2,,LE... 
36 : 


~ 108 - 


4865 
6092 


2000 
5351 
5861 
5992 
6144 
2041 
5486 
2613 
5993 
2171 


5990 
5863 
3800 
3797 
3812 
3798 
3796 
3815 
4686 
0687 
5756 
5757 
6 300 
3045 
3277 
3454 
3554 
5994 
5865 
3995 
4023 
4Ou8 
4080 
4926+ 
8055 
5995 
0338 
5758 
5350 
3893 


- -1622 


4221 
3878 
2387 
3892 
3896 
2170 
1248 
C488 


5584 
6096 


0477 
5268 
0983 
5871 
5966 
5120 
3769 
3765 
3780 
3767 
3763 
3783 
5585 


2706 
2836 
2891 
2940 
3018 


4301 


0763 
0764 
6280 
6280 


3045 
3279 
3454 
3554 


3996 
4034 
4068 
4084 
4933+ 
4201 


0753 
5759 


- 1652 


2744 


3904 
&300 


0490 


1689 
5384 
1023 


2723 
2837 
2901 
2942 
3020 


6300 


3047 


3284 
3462 
3556 


3998 
4035 
8069 
4085 
B945+ 
4861 


0768 


‘5760 


1712 


2981 


3105 


1746 
5389 
1056 


2726 
2839 
2902 
2988 
3022 


3057 
3286 
3465 


(3573 


3999 
4036 
4071 
4086 
4953+ 


0803 
5766 


1736 


4229 


4034 


1982 
5390 
1240 


2749 
2841 
2904 
2991 
3024 


3057- 
3443+ 
3471 

3573+ 


4000 
4037 
4072 
4734 


0816 
5767 


1770 


4425 


4036 


2001 
5391 


2751 
2843 
2906 
2997 
3030 


3059 
3446 
3475 


4002 
8041 
4074 
4735 


5726 


5768 


1792 


4157 


2328 
5391 


2756 
2884 
2908 
3000 
3031 


3075 
3449 
3538 


4003 
4042 
4075 
4736 


5727 


2263 


4159 


4261 
5392 


2779 
2885 
2934 
3001 


3077 
3450 
3538 


4008 
4046 
4076 
4739 


5739 


3120 


4852 


4280 
5398 


2782 
2887 
2935 


3003 


(3277 
3451 


3540 


4009 


4Q47 
8079 
4740 


5754 


3700 


4854 


4611 


symbo} 


REALSP 
RECOMF 
RECOMJ 
RECOMN 
RECOMP 
RECOMQ 
RECOMT 
RECOMZ 


“RECOM 


RECOM2 
REMDFN 
REMDR 
REMDSP 
REMKY 


“REMPAT 


REMPT 
REMSP 
REQ 
RETCL 
RETCOD 
RETNUL 


RTBIT 
RTNUL3 


RTN1 


RTN2 


RTN3 


defn 


5585 
4679 
4650 
4680+ 
4649 
4667 
8650+ 
4670 
4663 
$666 
5967 
1857 
6230 
5325 
5324 
6388 
6229 
1944 
5706 
5393 
5038 


5332. 


6231 
3829 
5873 
6232 
1946 
1948 
5389 
1950 
6228 
1952 
1956 
1954 
5572 
3843 
5390 
4977 
5869 
6233 
2044 
5875 
6234 
5601 
2658 
5487 
6145 
2628 
0308 
5391 
0263 
5403 
20488 
5877 
6235 
2662 
5488 
6146 
2635 
2644 
5043 


5035 


5040 


5042 


DESCR 


STRING 
PROC 
DESCR 
STRING 
RCOMP 
RCOMP 
DESCR 
RCOMP 
STRING 
RCOMP 
DIVIDE 
RCOMP 
SPEC 
REWIND 
DESCR 
PROC 
DESCR 
STRING 
PROC 
DESCR 
STRING 
STRING 
PROC 
DESCR 
DESCR 
ACOMPC 
EQU 
DESCR 
EQU 
DESCR 
PROC 
DESCR 
STRING 
PROC 
DESCR 
DESCR 
ACOMPC 
PUTLG 
RRTURN 


LHERE 


RRTURN 


LHERE 


value 


REALBF,0,0,0,10 
SCL, 1 

TEXTSP, ZPTR 
TEXTSP, BLSP 
SCL,1 

CMOFCL, DESCR 
OCALIM, TEXTSP 


CROSS REFERENCE 


PD ian enna 


CMBSCL, CMBSCL,CM.«« 


TEXTSP, 0, ,RECOM2 


REMPT,0,P 


REMPT, TTL+MARK, 4.4. 


*REM® 


XPTR, YPTR, FAIL, Reo e 


0,0,0 
0,0,1L 
NULVCL, 3 


‘RETURN? 
BKSPCE 
REWIND, 0,1 
‘REWIND! 


XPTR, YPTR, RETNUL.-~ 
XPTR, YPTR,RETNUL. »- 


R,0,I 


XPTR, YPTR, FAIL, Reee 


"REALS 


XPTR,YPTR, FAIL, Fe oe 
ZPTR, XPTR, YPTR,Acee 
XPTR, YPTR,RETNUL. ~~ 
INBUF,0,0,CARDSZ. o> 


XCL 


¢ 

RPLACE,0,3 
*REPLACE! 
ANY 

‘RPOSs* 

*) } 

LNTH 

RPSIFN, FNC, 3 
RPSI,0,3 
XPTR,0O,,,SCLENR 
3 

R,0,R 
3*DESCR 
0,0,0 

ANY ; 
RTAB,0O,1 
*RTAB? 

LNTH 
RTBFN,FNC,3 
RTB,0,3 
XPTR,0,,»SCLENR 
TXSP, TVAL 


rd 


s 
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\ 


references 


&269 
8664 
4688 
46504 
4637 
4680 
4680+ 
8696 
4664 
4663 
5996 
5867 
5997 
0363 . 
0363 
5324 
5325 
1894 
1531 


u270 


k683 


6388 


3194 


1922 
1946 
1971 
3805 
4459 
4890 
3194 
&184 
5369 
5873 
5998 
5999 
1894 
1894 
1872 
1894 
5269 
1894 
1877 
1894 
1377 
3836 
2221 
5869 
6000 
6001 
5875 
6002 
6003 
0491 
6145 
2045 
5487 
2613 
0979 
1870 
1452 
3875 
5877 
6004 
6005 
6146 
2049 
5488 
2613 
2640 
1502 
2876 
5255 
0460 
1175 
1266 
1484 
0863 
1393 
0915 


1924 
1946 
2228 
3838 
b468 
4923 
3209 
4187 
6273 


3376 


1378 


2277 


3336 


1018 


1453 
5120 


6389 


1513 
4049 
6154 
0823 
1189 
1272 
148u+ 
0869 
1398 
0970 


4288 


6274 


1924 
1948 
3100 
3841 
G48 


3212 


4640 


1387 


4042 


1051 


1543 
4056 
6156 
0843 
1198 
1275 
1586 
0869 
1402 
0996 


4289 


1926 
1950 
3324 
3844 


auey 


3218 


1389 


1177 


1556 
4166 


0847 
1236 
1336 
3901 
0869 
1586 
1011 


1928 
1950 


‘3351 


3856 
4495 


3221 


1396 


1193 


1571 
4202 


0847 
1246 
1362 
4113+ 
0869 
1794 
1044 


1928 
1952 
3582 
3860 
4503 


3238 


1397 


1571 
4230 


0854 
1250 
1385 
4879 
0913 
2238 
1072 


1930 1932 
1954 1954 
3772 «03774 
3942 3947 
4584 4821 
3239 3250 
1573 1576 
4230 4232 
0871 0877 
1253 1256 
1390 «1413 
1137 1346 
2492 4087 
1117+ 1120 


1944 
1968 
3803 
3980 


4824 


3262 


2848 
4232+ 


11174 
1259 
1456 


1359 
4u08 
1127 


SCLENR 
SCLNOR 
SCNAME 
SCNCL 
SCNEMO 
SCNR 


SCNR1 
SCNR2 
SCNR3 
SCNR4 
SCNR5 


SCOK 


SCOKCL 


2471 
6147 
2472 
2475 
2476 


_ 2478 


2487 
1920 
2209 
5489 
6120 
2240 
2233 
6540 
2246 
2243 
2227 
2236 
2225 
5678 
5215 
5419 
5242 
5490 
6148 
2446 
2447 
2449 
2450 
2469 
5534 


5218 


5221 


5224 
5404 
5225+ 
2404 


2409 
2420 
2434 
2418 
2419 
2490 


5491 


CROSS REFERENCE 


type value 


RRTURN XPTR,2 


RRTURN XPTR,3 
STRING 'RINTYPE® 
RRTURN YPTR, 3 
RRTURN ZPTR,3 


RRTURN NULVCL,1 
DESCR R,0,S 


EQU 1 


PROC  SCNR 

DESCR SALF,0,2 

SETAC LENFCL,0 

PROC SCNR - 
GETDC LENFCL, PDLPTR, 3*... 
GETDC XCL,PDLPTR,DESCR 
AEQLC LENFCL,0,SALT1 
SUBTRT ZPTR,XPTR,YPTR,A... 
PROC ,. 

DESCR SCANFN,FNC,~ 

DESCR SCAN,0,2— 

RCALL XPTR,GNVARI,XPTR 
RCALL XPTR,GNVARI,XPTR 
FORMAT '(1HO,115,26H PA... 
REALST XSP,XPTR 

REALST XSP,XPTR 

SUBSP TSP,YSP,XSP,FAIL 
LOCSP XSP,XPTR 

LOCSP xXSP,XPTR 

DESCR 0,0,0 

SETAC ERRTYP,1 

DESCR 0,0,0 

SETAC SCERCL,1 

DESCR SCFLFN,FNC,2 
DESCR FAIL,0,2 

PROC  SCNR 

MOVD PATBCL,YPTR 

SETAC LENFCL,1 
INCRA PATICL,DESCR 
BRANIC 2CL,0 ~ 
DESCR 0,0,0 Bes 


SETAC ERRTYP, 14 
SETAC ERRTYP,15 
SETAC ERRTYP,4 
DESCR 0,0,0 
SETAC ERRTYP,8 
PROC ’ 


SETSP TXSP,XSP 

PUSH (YPTR, YSIZ) 
INCRA PDLPTR,3*DESCR 
SUBTRT YSIZ,MAXLEN, YSIZ 
SUM YSIZ,YSIZ,CHARCL 
PROC SCNR 


DESCR SCOKFN,FNC,2 


- 110 - 


references 
1372 1379 
1319 1333 
1736 1743 
3247 3653 
1688 1689 
5333 

4256" 

0866 0874 
3239 3425 
4397 4398 
4700 4704 
5062 5065 
0581 0643 
1874 2220 
0601 1547 
2027 2059 
3242 3892 
46544 4838 
5396 5397 
5754 5758 
2702 2857 
6379 

2488 

2626 2727 
2467 2487 
2473 
2482 2505 
1877 

6120 

0943 

5489 

2222 

2219 

5116 

2221 

2220 

2231 

2218 2241 
2217 2234 
0336 0337 
2518+ 2605+ 
5191 5242 
5216 5219 
2438 2839 
5490 

2848 

2432 2444 
2492 

2484 

2466 

(163% 1647 
1674 1678 
1808 1814 
1846 1850 
2515 2518+ 
2602 2605+ 
3822 3826 
4031 4153 
4695 

2615 - 2621 
2971 

2522+ 

2216 2272 
2758+ 3006+ 
2237 2284 
2592 2619 
2727 2758 
5058 5060 
2407 

2501 

2413 

2414 

2416 

2541 2592 
2780 2806 
2894 3027 


1383 
THB 4+ 
W744 
3749 
1691+ 


1157 
3498 
4450 
4706 


0671 
2276 
1690 
2073 
4015 
5260 
5398 
5759 
5056 


5058 


2247 
2264 
0338 
2611 
5245 
5222 


1656 
1682 
1818 
1854 
2518+ 
2605+ 
3830 
4154 


2628 


5116 


2446 
2626 
2780 


2619 
2852 


1586 


1622 


1752 
8349 
1692 


1666 
3513+ 
4522 
4709 


3378 
1720 
2121 
4137 
5332 
5399 
6439 
6147 


0368 
2822 
5251+ 
5225¢ 


1659 
1697 
1822 
1858 
2522 
2612 
3831 
4649 


2635 


2471 
2645 
2806 


2645 
2912 


2388 
1624 
1755 
4351 
1693 


2034 
3599 
4575 
4713 


1744 
2325 
4145 
5385 
5399 


2864 
5251+ 
5225 


1660 
1785 
1826 
1861 
2523 
2613 
3835 
4662 


2647 


2475 
2652 
2852 


2652 
2945 


2388 
1627 
1770 
4353 
4257 


2091 
3721. 
4601 
4761+ 


1774 
2515+ 
4258 
5388 
5528 


3006 
5255 


1666 
1794 
1830 
1863 
2544 
2655 
39836 
4666 


2490 
2677 
2857 


2677 
5060 


2389¢ 
1666 
W774 
4367 
4984 


2105 
4333 
4620 
Q771+ 


1969 
2605+ 


- 4277 


5392 
5726 


1669 
1795 
1834 
1877 


2558 . 


2659 
4019 
4676 


2494 
2689 
2912 


2689 
6149 


2389 
1715 
3244 
4524 


2155 
4372 
4644+ 
5007 


1981 
2820 
4348 
5394 
5727 


1672 
1802 
1838 
1894 
2572 
2663 
4020 
4679 


' 2503 
* 2702 


2945 


2724 


1719 
3285 
5068 


2195 
4388 
4676 
5018 


2000 
2862 
4609 
$395 
5739 


1673 
1805 
1842 
2512 
2599 
2667 
4030 
4687 


2541 
2724 
5056 


2758 


6 


Oo 


symbol 


SCORFN 
SCON 
SCONCL 
SCONFN 
SCON1 
SEQSI2 
SGOND 
SGOTYP 
SIZE 
SIZEFN 
SIZERR 
SIZESP 
SIZLIM 
SIZLMT 
SISR 
SJSRCL 
SISRC1 


SISRFEN ~ 


SJSRI 
SJISRP 
SJSRR 


-SJSRS 


SIJSRV 

SJSRV1 
SISRV2 
SJSR1 

SISRIA 
SJSR1B 
SJSSDT 
SJSSIP 
SJSSIV 
SJSSRP 
SJISSRV 
SISSVP 
SISSVV 
SISSV2 
SJSS1 

SJSS1A 
SJVVON 


‘SLHFEN 


SNABTB 


SNODSZ 
SOURCF 
SPAN 


SPANFN 


SPANSP 
SPCNVT 
SPCNV1 
SPCNV2 
SPDLDR 
SPDLSZ 
SPDR 
SPEC 
SPECR1 
SPECR2 
SPLIT 
SPNC 


SPNCCL 


STARP4 
STARPS 


defn 


6149 
2494 
5492 
6150 
2497 
0269 
5696 
0309 
5002 
5879 
5227 
6237 
5442 
2255 
5493 


2280 


6121 
2394 
2334 
2397 
2369 
2368 
2382 
2388 
2259 
2266 
2267 
2325 
2289 
2292 


2299 © 
2295 
2283 . 


2308 
2312 
2317 
2320 
2303 
6098 


5443 
6541 
2022 
5881 
6238 
0340 
0342 
0346 
0284 
0280 
0282 
57293 
5730 
0840 
2571 
5494 
6151 
2578 
2583 
2591 
2575 
1942 
5679 
6316 
2812 
6152 
2826 
6394 
2830 
2850 
2856 
2831 
2858 


AEQLC 


a 


SUBTRT NVAL, MAXLEN, NVAL 
(YCL,XCL, PATICL,... 2848 


POP 


Vit - 


CROSS REFERENCE 


references 


value 
SCOK,0,2 5491 
SCNR 6150 
SCONFN, FNC,2 2426 
SCON,0,2 5492 
(YSI2Z,¥YPTR) 2495 
8 5513 
0,0,0 0999 
2 1049 
5879 
SIZE,0,1 6006 
ERRTYP, 23 0554 
'‘SIZE® 6007 
5442 
SIZLIM,0,0 0554 
Ps 6121 
SISRFN,FNC,3 . 0961 
WPTR, INVOKE, (WPT... 2258 
SISR,0,3 5493 
ZSP, ZPTR 2327 
XSP, HEADSP 2326 
ZSP, ZPTR 2328 
XPTR, TAILSP 2395 
2SP,2PTR 2325 
WPTR, DESCR, ZPTR 2324 
TRAPCL, 0, ,RTN3,RTN3 2383 
INSW,0,,SJSR1A 2280 
XPTR,WPTR, DESCR 2259 
(WPTR, XPTR) 2263 
ZPTR,S,¢SJSRV 2323 
XPTR, GNVARI, XPTR 2278 
XPTR,GNVARI, XPTR 2275 
XSP,XPTR 2277 
XSP,XPTR . 2276 
XSP, XPTR 2278 
XSP,XPTR 2273 
TSP, YSP,XSP,FAIL 2306 
(TALLSP, HEADSP) 2287 
ZPTR,ARGVAL,,FAIL 2318 
ANCCL, 0, FAIL 2313 
UNDF, FNC, 0 
2528 
2586 
NODESZ,0,P 2136 
*(82HOBELL TELEP... 0334 
ANY 5881 
SPAN,0,1 6008 
*SPAN® 6009 
XPTR, INITLS, YCL 0349 
ZPTR, XPTR, XCL 0347 
XCL, 2*DESCR 0343 
SPDLSZ*DESCR 5531 
1000 0284 
SPEC*#DESCR 2948 
0282 
0,0,0,0,0 0580 
0,0,0,0,0 0590 
‘ 0417 
ANYC 6151) 
SPNCFN, FNC, 3 (2023 
SPNC,0,3 5494 
SNABTB, STOPSH 2575 
XSP, TXSP,,TSALT,... 2576 
TXSP,XPTR 2589 
XPTR, TBLCS, SPNC2 2523 
ZPTR, XPTR,YPTR,As ee 1894 
0,0,0 1036 
STACK, TTL#MARK,S... 5535 
CHR 6152 
STAR,0,3 6395 
FULLCL,0, ,STARP1 2821 
STARPT, TTL#MARK,.2. 5457 
NVAL, YCL 2826 
(YCL,XCL,PATICL,... 2876 
LENFCL,0, TSALT 2862 
2828 


6335: 


5567 
2005 


0554 


0598 


2398 


- 2366 


2384 
2260 


2290 
2293 


2313 


2530 


6311 
5527 
2929 
0581 
0591 
1471 


2576 


10483 
6288 


6394 


2864 


2876 


6338 


5570 
1057 


0598 


0646 


2300 


2296 


6346 6349 6363 6368 


5613 
1066 


0646 


6399 


2538 2550 2552 2564 2566 2578 2580 


6312 
2931 
0582 
0614 
4672 


2582 


6316 


2934 2955 48412 4434 
0591 0596 0616 0634 
0615 0616 


0672 9673 


symbol 


STARP6 
. STARSP 
STARSZ 
STAR2 
STATHD 
STCTKY 
STCTSP 
STDMP 
STFCSP 
STGENO 
STKPTR 
STLMSP 
_ STNOCL 


STNOSP 
STNOSZ 


STOP 
_STOPSH 
““STOPTP 


TEMPCL 
TEXTSP 


defn 


2836 
5602 
S444 
2815 
6542 
5339 
6239 
6543 
6240 
6544 
5535 
6241 
5334 


6243 
0270, 


ae we ie 


a ow 


3975 
3965 — 
3982 
3972 
0310 
5883 
6242 
BUL6 
6100 
5457 
0281 


5536 


5758 


5759 
1829 
6071 | 
5697 
6545 
5327 
6407 
6245 
3016 
3017 
3029 
5495 
6157 
§326 
65454 
5134 
0328 
2052 
5885 
6246 
5393 
5714 
2666 
5496 
6153 
2647 
5649 
5537 
5652 


5760 
5715 


DESCR 
SPEC 


CROSS_ REFERENCE 


value 


PDLPTR, 3*DESCR 
kum ¢ 

11*DESCR,0,P 

YPTR, EXPVAL,YPTR... 
* (28H1SNOBOLS ST... 
STCTSP,0,0 
*STCOUNT® 
'(33H1DUMP OF VA... 
*STFCOUNT! 
*(1HO,115,33H RE... 
STACK,0,0 

*STLIMIT® 

0,0,1 


-*STNO?* 


8 


STOPTR 

” 

YPTR, FUNTCL, INTR3IO 
YPTR, TRATL,YPTR,-.. 
5 : 


‘STOPTR, 0, 2 


*STOPTR* 


STARPT,0,P 
1000 


0,FNC,0 


0,PTR,S 


0,PTR,S 


0,0,90 
*(37HONO ERRORS ... 
SUCCSP,0,0 

SUCCPT, TTL#MARK,... 
*SUCCEED® 

¢ 

PDLPTR, 3*DESCR 
SUCE 
SUCFFN, FNC,2 
SUCF,0,2 
SUCCPT,0,° ie 
‘(27HOCUT BY SYS... 
OUTPUT, SYSCMT, (S... 
5 

ANY 

TAB,C,1 

‘TARE 

T,0,A 

0,0,0,0,0 

LNTH - 

TBFN, FNC, 3 

TB,0,3 
XPTR,0,,~SCLEN 
0,0,0 
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4650+ 


references 

2834 

T7714 

1748 1749 

2817 

5107 

1573 

5339 

5097 

5329 

5118 

0684 0685 

5288 

1563 1566 

5074 5076+ 

(5335 

0271 45513 

5611 5613 

2530 2564 

2552 2578 

3984 3987 

‘3975 5883 

3972 

3970 

1054 

6010 

6011 

6100 

1749 82331 

6316 6317 

0609 0655 

0390 0394 

1089 1054 

3047 3059 

4931 4938 

0695 0696 

0730 0731 

0700 0701 

6071 

0926 0933 

0411 

0364 

5326 6407 

5327 

3029 

3032 

6157 

30920 

5495 6408 

.O364_. 

5134 

0476 3513+ 

5885 

6012 

6013 

4648 

2286 2315 

6153 

2053 

5496 

2613 

2525 2531 

2526 2532 

1636 1664 

3587 3588 

3665+ 4005 

4139 4140 

4410 4429 

Q7T7 1+ 

9648 0650 

0380 0381 

1047 1102 

1362 1392 
4663 


2330 


3162 
5134 


5566 


4264 


O745 
0396 
1140 
3077 
4951 
0696 
0731 
0730 


0945 


3612 


2317 


2547 
2548 
3363 
3665¢ 
4006 
4154 
4433 


0651 
0392 
17120 
1404 
4680+ 


2331 


3222 
5166 


5567 


4283 


0833 
0403 
1248 


-3279 


4959 
0698 
0733 
0736 


0956 


4615 


2321 


2553 
2554 
3364 
3665+ 
4020 
4154 
8434 


0397 
1124 
1405 
4691 


4263 


3997 


5568 


0865 
1345 
3286 


0699 
0734 
0739 


0963 


Q771+ 


2324 


2561 
2562 
3367 
3665+ 
8020 
4155 
4752+¢ 


0405 
4125 
1408 


4264 4282 
4070 4103 
5570 5571 
0980 0984 
1370 1807_ 
3447 3451 
0700 0702 
0735 
5278. 5381 
2341 2340 
2567 2575 
2568 2576 
3369 3402 
3665+ 3665+ 
4021 4031 
8190 4191 
4752+ 4752+ 
0864 0887 
1138 © 1343- 
14214 


1418 


4283 


4113 


5572 


10 16 
1420 
3540 


0704 


5393 


2369 


2581 
2582 
3564 
3665+ 
4031 
4407 
Q7714 


0976 
1353 
T4844 


4133 


5572 


1921 
1488 
3556 


0729 


2380 


3565 
3665+ 
4032 
4408 
G771+ 


1018 
1359 
4650 


e 


symbol 


TFENPL 
TFENTL 
TFEXPL 
TFEXTL 
TFNCLP 
TFNRLP 
TIME 
TIMECL 
TIMEPS 
TIMFN 
TIMSP 
TITLEF 
TKEYL 
TKEYPL 


_TLABL 


TLABPL 
TLSGP1 


TMVAL 


TOPCL 


TPTR 


TRACE 
TRACEP 
TRACL 
TRACSP 


TRAC1 
TRAC2 
TRAC3 
TRACY 
TRACS 
TRAC6 
TRAPCL 


TRATL 

TRCBLK 
TRCEFN 
TRCESP 
TRCLSP 
TREPUB 


TREPU1 
TREPU2 
TREPU3 


defn 


6428 
5628 
6431 
5630 
5366 
5368 
5013 
5406 
6547 
5887 
6247 
65474 
5632 
6434 
5626 
6425. 
5768. 


5650 


5761 
5651 


3911 
3925 
5297 
5586 


3949 
3928+ 
3944 
3956 
3922 
3946 
5285 


5562 
5371+ 
5889 
6248 
5603 
1441 


1K43 
1452 
1456 
1448 
1460 
1465 
6173 
4168 
5024 
5283 
5891 
R149 
6208 
6209 
5361 
5604 


DESCR 
STRING 


CROSS REFERENCE 
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Vv. ue references 
TPENPL, TTL#+MARKyee+ 5628 6293 
TFENPL,0,0 3178 5366 
TFEXPL, TTL¢MARKye e+ 5630 6294 
TFEXPL,0,0 3207. 5368 
TFENTL,0,0 3950 3983 
TFEXTL,0,0 3953 3986 
° 5887 
0,0,0 0335 0420 
*(1HO,F15.2,35H oe. 5131 
TIME,0,1 6016 
*TTME? 6017 
*(37H1SNOBOL4Y (V..- 0333 
TRKEYPL,0,0 1573 1591 
TKEYPL,TTL¢MARK,... 5632. 6295 
TLABPL,0,0 1525 5364 
TLABPL, TTL#MARK,-«- 5626 6296 
0,PTR,0 0561 0605 
0,0,0 2075 2077 
2200 2337 
_2460 2461 
2687 2696 
2910 2938 
4338 
0,0,0 : 0756 0757 
oo 0792 0793 
0,0,0 1748 1749 
2082 2084 
2136 2137 
2176 2177 
2200 2330 
2354 2355 
2950 2951 
3636 3640 
3779 3798 
3933 3934 
3946 3956 
4283 4284 
4337 4338 
4760 
a 3925 5889 
TRACE 3951 3954 
0,0,1 3167 3169 
ANYSP,0,0,0,0 — 4131 4132 
8159 4163 
4193 
YPTR,FUNTCL,INTR30 3922 
XSIZ,5*DESCR 3927 
TPTR,AUGATL, (TPT... 3939 
TPTR, BLOCK, TWOCL 3938 
YPTR, TRATL,YPTR, «+ 0 ~ 3920 
YPTR,0,TPTR 3959 
0,0,1 1523 1571 
3214 4102 
TRLIST,0,0 3922 3972 
TRCBLK, TTL#MARK, +e. 3931+ 5371+ 
TRACE, 0,4 6018 
*TRACE® 5286 6019 
* CALL OF ¢ 4003 
7 0933. 0945 
1042 1066 
XPTR, YPTR, CODE 1450 1454 
YPTR, RSIB,0,,TREPU3 1448 1458 
YPTR, FATHER,O,/RTN1 1452 
YPTR,LSON,0,,TREPU2 1475 
ZPTR,CMOFCL,CODELT 1447 
XCL, CMBSCL, CMOFCL 1463 
*CALL* 5367 
XSP,YPTR 4106 
‘ 5991 
0,0,1r 3878 
TRIM,0,1 6020 
TRACSP, XSP 4169 
“KEYWORD* 5371 
"LABELS 5365 
TRLIST, TTL#MARK,..- 5361 5562 
‘LEVEL * 4000 4178 


6428 


6431 


0420 


3187 
6434 


6425 
0651 
2132 
2339 
2462 
2697 
2939 


0771 
0798 
1750 
2086 
21393 
2181 
2331 
2357 
2956 
3646 
3802 
3937 
3957 
4285 
4410 


3196 
4134 
4164 


1589 
4103 


0946 
1072 


5907 


5088 


3216 


0801 
2134 
2344 
2675 
2840 
2940 


0772 
0799 
1751 
2088 
2141 
2182 
2332 
2361 
3148 
3647 
3805 
3938 


3958 


4319 
4411 


3198 
4135 
4165 


2388 
4109 


0956 
4692 


6297 


5088 


5251 


2175 
2346 
2676 
2841 
3021 


0782 
0818 
2030+ 
2090 
2148 
2188 
2333 
2363 
3151 
3767 
3809 
3939 
4263 
4320 
Gut2 


4103 
W142 
4178 


2745 
4413 


0963 


5108 


5370 


2177 
2427 
2680 
2888 
3022 


0783 
0819 
2032 
2103 
2149 
2189 
2338 
2927 
3157 
3771 
3810 
3939 
4264 
4326 
4740+ 


4110 
4143 
4182 


2982 


4230 


0964 


2180 
2428 
2684 
2889 
4318 


0784 
0831 
2076 
2104 
2151 
2190 
2339 
2928 
3158 
3778 
3811 
3941 
4265 
4327 
4746+ 


4413 
4149 
4183 


3175 
4426 


0965 


2182 
2439 
2685 
2905 
4320 


07990 


2077 
2133 
2153 
2192 
2345 
2929 
3837 
3777 
3926 
3944 
4266 
4329 
4752+ 


4157 
4185 


3185 
5249 


0994 


2198 
2440 
2686 
2906 
4336 


0791 


2081 
2134 
2154 
2199 
2346 
29:49 
3492 
3778 
3928 
3944 
4282 
4331 
4752 


4158 
4186 


3204 


1005 


) CROSS REFERENCE 


symbol defn type value references ) 

TRMSP 6249 STRING *TRIM* 5284 6021 

TRPHND 4100 PROC ; 1527¢ 15734 1591+ 23894 27524 2992+ 3180+ 3187+ 3209¢ 

3218+ 4232+ 430% 5251+ 

TRERT 48160 MSTIME YPTR $150 4194 

TRSTSP 5605 STRING ° STATEMENT * 3996 4069 4132 

TRV 4152 LOCSP XSP,YPTR 4145 

TSALF 5056 BRANCH SALF, SCNR 2518+ 2538 2586 2587 2605+ 2624 2632 2758+ 2783 
: 2783 2802 2802 2815 2916 3006+ 5255 ~~ 

TSALT 5058 BRANCH SALT,SCNR 2536 2538 2583 2583 2590 2616 2623 2632 2639 

2643 2649 2650 2701 2801 2832 2835 2856 2916 
TSCOK 5060 BRANCH SCOK,SCNR 2624 2632 2692 2697 2697 2745 2746 
TSIZ 5653 DESCR 0,0,0 , 2079 2080 2081 2083 2084 2085 2086 2087 2088 


2089 2090 2090 21485 2146 2154 2186 2187 2188 
2351 2352 2352 2353 2354 2360 2361 2363 2833 
2835 4324 4325 4326 
TSP 5716 SPEC 9,0,0,0,0 1112. 1115 1375 1378 1382 1394 1397 14801 1639 
1661 2074 2075 2131 2132 2227 2228 2312 2313 
2316 2376 2377 2378 2379 2380 2750 2755 2799 
2801 2802 2804 2823 2924 2925 2926 2926 2928 
2967 2968 2969 2969 2970 2989 2995 3006 3333 
.3334 3336 4070 4071 4311 4312 4313 4314 4317 
4318 4335 4336 4411 4414 4437 4896 4897 4898 
4926+ 4933# 4945+ 4953+ 4992 4993 4994 4995 5083 
5084 5556 
TSPPTR 5556 DESCR TSP,0,0 2974 4418 | 
0565 0609 0655 0852 5259 5282 5311 5344 5347 
5352 5357 5361 53714# 5616 5769 5779 5899 5911 
6028 6280 6304 6311 6316 6321 6326 6334 6345 
6359 6367 6378 6383 6388 6394 6407 6422 6425 
6428 6431 6434 6438 - 
TTLCL 5762 DESCR 0,0,0 0708 0709 0710 0712 0712 ©0713 0716 0717 0717 
0718 0719 0720 0721 6743 0744 0745 0750 0752 
0758 0761 0761 0762 0764 0765 0766 0767 0773 
0778 0779 0780 0782 0783 0789 0790 0791 0793 
0794 0794 0795 | 
TVAL 5654 DESCR 0,0,0 2140 2141 2150 2151 2356 2357 2359 2361 2630 
| 2632 2637 2639 2643 2644 2693 2694 2697 2699 
2705 2706 2717 2718 2718 2719 2722 2723 2772. 
2773 2773 2774 «2776 «2776 2777 «2778 «2779 «2915 


6328 8329 4812 4416 4417) 4420 4422 4827) 4439 
4439 
TVALL 5624 DESCR TVALPL,0,0 2389 2746 2984 4232 4427 5362 | o 
TVALPL . 6422 DESCR TVALPL,TTL*#MARK,... 5624 6298 6422 
TWOCL 5763 DESCR 2*DESCR,0,B 0834 3585 3956 
TXSP 5717 SPEC 0,0,0,0,0 1639 166171 2286 2409 2410 2421 2427 2439 2460 


2467 2483 2500 2536 2537 2549 2583 2585 2590 
2591 2616 2618 2622 2631 2638 2644 2648 2651. 
2675 2686 2696 2717 2721 2722 2737) «2759 2755 
2772 2777 2778 2800 2805 2840 2888 2905 . 2924 
2926 2938 2967 2969 2989 2995 3021 


UGOTYP 0311 EQU 1 me : 

UNAFP 8941 RCALL XPTR, FINDEX,XPTR “8926+ 4926+ 4926 . 

UNBF 4917# RCALL YPTR,FINDEX, YPTR 4933+ 4933 4933+ 4969 4969 

UNCF 4932 LOCSP YSP,YPTR 4942 27 

UNDF 5230 SETAC ERRTYP,5 4518 5548 6032 6035 6038 6041 6048 6087 6074 
6078 6090 6094 -6098 

UNDFCL 5548 DESCR UNDF,FNC,0 0537 3348 

UNDFFE 5233 SETAC ERRTYP,9 3164+ — : 

UNIT 5538 DESCR 0,0,0 0369 0379 0812 11174 1122 1348 1351 

UNITI ---— 3782 5358 

UNITO ~--- 3814 5353 

UNITP ---- 5355 

UNKNKW 5236 SETAC ERRTYP,7 4369 

UNLDFN 5893 DESCR UNLOAD,0,1 6022 

UNLDSP 6250 STRING ‘UNLOAD! 6023 

UNLOAD 3345 PROC , 5893 

UNLSP 5606 STRING *UNLIST* 1410 

UNOP 1481 PROC , 1137 

UNOPA 1484+ STREAM XSP,TEXTSP,UNOPT... 1492 

UNOPB 1491 MOVD XPTR,YPTR 1489 

UNOPTB  _---- 1484+ 4926+ 4933+ 

UNSC 2503 PROC SCHR 2876 

UNTERR 5239 SETAC ERRTYP,12 3763 3796 3833 3833 

UNYOP 4925 LOCSP XSP,XPTR 4914 

UTOTYP 0312 EQU 4 

VALBLK 6438 DESCR VALBLK,TTL#MARK,... 5896 6438 fe ] 
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0 


CROSS REFERENCE 


symbo defn type value references 
VALFN 5895 DESCR FIELD,0,1 6024 
VALSP 6251 STRING ‘VALUE! 5363 6025 
VALTR 8125 PROC ° 4174 4196 
VALTRS 5363 DESCR VALSP,0,0 3921 3971 
VALTR1 4142 APDSP TRACSP, XSP 4172 
VALTR2 4127 RCALL XPTR,IND,,FAIL 4176 
VALTR3 4138 LOCSP XSP,XPTR 4187 
VALTR4 4131 SETLC TRACSP,0 4199 
VARATB =e 3045 3057 
VARSP 6248 STRING ‘STRING 5261 
VARSYM 5539 DESCR 0,0,0 0366 0620 
VARTYP 0313 EQU 3 
VARVAL 1762 PROC ’ 3040 3042 
3918 3968 
4547 4629 
: 5003 5025 
VARVC 1777 RCALL XPTR, INVOKE, (XPT... 1765 
VARVI 1766 AEQLC INSW,0,,VARV4 777 
VARV2 1774 VEQLC XPTR,S,,RTXNAM 1777 
VARVS 1773 GETDC XPTR,XPTR,DESCR 1766 1767 
VCDTP 5394 DESCR S,0,C 4637 
VEDTP 5395 DESCR S,0,E 4638 
VIDTP §396 DESCR S,0,I 1868 3374 
VLTRFN. 6122 DESCR VALTR,O,2 - 5625 
VPDTP 5397 DESCR S,0,P 2169 2218 
VRDTP 5398 DESCR S,0,R 1873 3379 
VSP 5718 SPEC 0,0,0,0,0 2533 2535 
; 3274 3322 
VVAL 5655 DESCR 0,0,0 2355 2365 
8420 4425 
VVDTP 5399 DESCR S,0,S 1869 2168 
VXOVR 4201 OUTPUT OUTPUT, PRTOVF 4140 4140 
WCL 5656 DESCR 0,0,0 1064 1065. 
3137 3142 
3259 3359 
3440 3466 
3616 3618 
3715 3717 
4724 4725 
4761+ 4761+ 
WPTR 5657 DESCR 0,0,0 1636 1664 
2263 2266 
2748 2757 
3237 3273 
3494 3507 
3579+ 3580 
3663 3665+ 
4012 4052 
&752+ 4752+ 
4787 4823 
WRITNO 6549 FORMAT ¢(1HO,115,17H WR... 5122 
WSTAT 5405 DESCR 0,0,0. 3900 5122 
XCL 5658 DESCR 0,0,0 0341 6342 
0464 0897 
1207 1209 
W64 1465 
2453 2459 
2854 2873 
3107 3108 
3131 3144 
3259 3310 
3367 3404 
3563 3566 
3616 3618 
3707 3708 
3720 3723 
3931 3931+ 
4180 4181 
4512 4513+ 
4560 4560 
4618 4619 
4743 4744 
U771¢ U77T14 
4867 4868 
4895 4990 
XFERSP 5607 STRING ‘TRANSFER TO* 4093 


SoS <= 


6122 


3075 


3271 
3994 
4683 


4642 


2274 
4639 
2536+ 


2958 
R437 
2217 
8155 
29487 
3143 
3364 
34878 
3628 
3723 
4736+ 


1958 
2267 
2986 
3274 
3512 
3635 
3665+ 
4064 
4756 
48248 


03485 
0900 
1209: 
1469 
2478 
2986 
3119 
3152 
3311 
3405 
3584 
3620 
3709 
3725 
3934 
4306 
4513 
4561 
&718+¢ 
Q74US 
u771 
4869 
4991 


3277 


3273 
4064 
4886 


4299 


2536 
2959 


2273 
4155 
2950 
3224 
3367 
3485 
3631 
3725 
4737 


1959 
2280 
2999 
3406 
3513+ 
3636 
3916 
4065 
&761+ 
8825 


0346 
0901 
1211 
t4T2 
2481 
2999 
3122 
3153 
3312 
3441 
3606 
3655 
3709 
3728 
3935 
8308 
4515 
4572 
4718+ 
&764 
771+ 
4878 
5062 


3284 


3346 
4091 
4907 


2537 
2974 


8298 
4191 
3108 
3225 
3408 
3490 
3689 
3728 
4738 


2137 
2280 
3143 
3497 
35134 
3638 
3917 
4066 
4761 
4826 


0347 
1102 
1220 
1565 | 
2491 
3030 
3127 
3164+ 
3313 
3465 
3607 
3688 
3710 
3832 
3936 
4308 
4517 
8572 
4718+ 
4766 
8842 
4879 
5092 


3538 


3435 
4129 
4909 


2800 


2976 


4191 
3119 
3226 
3411 
3491 


3699 


4010 
&752+ 


2151 
2322 
3155 
3407 
3513+ 
3645 
3919 
4718+ 
47614 


0416 
1103 
1373 
1566 
2748 
3090 
3128 
3164+ 
3316 
3465 
3608 
3689 
3716 
3833 


3941 


&309 
8521 
4573 
4724 
8767 
4843 
8892 
5093 


3554 


3535 
4U76 
4978 


2801 


2981 


3122 
3228 
3415 
3561 
3701 
4011 
4752+¢ 


2257 
2382 
3228 
3408 
3513+ 
3646 
3936 
4724 
G761+ 


0417 
1183 
1374 
1567 
2757 
3091 
3129 
37164 
3358 
3478 
3610 
3699 
3716 
3837 
3944 
4310 
4535 
45748 
4726+ 
4768 
4849 
4892¢ 
5129 


3794 
4478 
4980 


2801 


3006 


3131 
3253 
3418 
3562 
3710 
4012 
4752+ 


2258 
2384 
3234 
3423 
3513 
3657+ 
3994 
4731+ 
G77 1+ 


0457 
1185 
1375 
1636 
2845 
3092 
3130 
3253 
3359 
3569 


3613 


3701 
3717 
3840 
3958 
G4utd 
85489 
4616 
4728 
4769+ 
4850 
4892+ 
5130 


3914 
4516 
n2g2 


2802 


4418 


3133 
32506 
3419 
3613 
3712 
&O40 
4752+ 


2260 
2389 
3236 
3484 
3550 
3661 
8008 
4752¢ 
“771+ 


0458 
1206 
1462 
1664 
2850 
3095 
3130 
3256 
3364. 
3561 
3614 
3706 
3718 
3843 
4179 
4415 
4550 
4617 
4732 
“769 
4866 
R898 


type value 


AEQLC ESAICL,0, ,XLATSC 


SETAC UNIT,0 


CROSS REFERENCE 


references 
0390 0392 
0409 


RCALL ,CMPILE,, (COMP3,-.- 0384 
AEQLC STYPE,EOSTYP,,XL... 0388 


AEQLC LISTCL,0,,XLATRN 


0383 


STREAD INBFSP,UNIT,XLAT... 0373 
OUTPUT OUTPUT, SUCCF 


DESCR 0,0,0 
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0407 
0340 
1149 
1289 
1318 
1490 
1537 
1602 
1624 
1652 
1689 
1709 
1722 
1742 
“4754 
1774 
1879 
1903 
1926 
1944 
1968 
1987 
2030+ 
2061 
2086 
2143 
2177 
2214 
2246 
2289 
2339 
2374 
2521 
2551 
2590 
2611 
2635 
2741 
3044 
3079 
3098 
3141 
3242 
3275 


.. 3292 


“3304 
3319 
3381 
3396 
3436 
3492 
3510+ 
3513+ 
3560 
3639 
3652 
3665+ 
3700 

3780 
3762 
3852 
3966 
4137 
4213 
4246 
4269 
4322 
4363 
8468 
§520 


0377 


0347 
1162 
1290 
1319 
Wag 
1540 
1603 
1626 
1655 
1690 
1712 
1722 
1742 
1755 
1775 
1880 
1904 
1928 
1946 
1969 
1988 
2030 
2063 
2117 
2150 
2184 
2225 
2247 
2292 
2339 
2375 
2521 
2553 
2591 
2615 
2637 
2746 
3048 


“3081 


3113 
3145 
3243 
3276 
3297 
“3306 
3323 
3384 
3398 
3438 
3493 
3510+ 
3535 
3596 
3640 
3657+ 
3665+ 
3700 
3741 
3769 
3856 
3967 
4138 
4224 
4256 
Q271 
4329 
4364 
4476 
4523 


0394 


0379 


0342 
1165 
1290 
1321 
1521 
1545 
1606 
1626 
1655 
1691 
1712 
1730 
1743 
1764 
W777 
1881 
1912 
1930 
1948 
1970 
1989 
2032 
2071 
2121 
2153 
2190 
2233 
2263 
2292 
2348 
2381 
2522+ 
2561 
2601 
2616 
2647 
2758+ 
3050 
3086 
3114 
3147 
3244 
3280 
3298 
3306 
3346 
3384 
3399 
3442 
3494 
35134 
3537 
3597 
3641 
3657+ 
3665+ 
3704 
3741 
3774 
3912 
3969 
8144 
4226 
4258 
8274 
4347 
4364 
4UTT 
8535 


0403 


0345 
1168 
1291 
1321 
1522 
1545 
1616 
1635 
1670 
1692 
1714 
1731 
1744 
1765 
1777 
1889 
1914 
1932 
1950 
1971 
19390 
2054 
2072 
2122 
2162 
2197 
2233 
2266 
2295 
2357 
2514 | 
2525 
2565 
2604 
2618 
2649 
2758+ 
3052 
3087 
3116 
3154 
3245 
3281 
3298 


3307 | 


3347 
3387 
3400 
3443 
3505 
3513+ 
3541 
3598 
3641 
3661 
3665+ 
3704 
3742 
3790 
3913 
3977 
4147 
4232 
4259 
4275 
4348 
4366 
4479 
4547 


0350 
1171 
1307 
1332 
1525 
1547 
1617 
1641 
1670 
1693 
1715 
1733 
1745. 
1767 
1796 
1890 
1916 
1934 
1952 
1979 
2025 
2057 
2073 
2124 
2163 
2290 
2236 
2267 
2296 — 
2369 
2515+ 
2529 
2567 
2605+ 
2621 


2650 © 


2818 
3055 
3092 
31420 
3155 
3247 
3288 
3300 
3313 
3349 
3387 
3403 
3483 
3506 
35134 
3543 
3617 
3647 
3663 
3665+ 
3705 
3747 
3791 
3919 
4108 
8148 
4236 
4260 
4296 
8349 
4369 
4480 
4548 


0351 


1181 


1308 
1443 
1527 
15848 
1619 
1645 
1675 
1698 
1718 
1736 
1746 
1770 
71802 
4891 
1918 
1936 
1954 
1980 
2027 
2058 
2074 
2128 
2165 
2200 
2240 
2269 
2299 
2372 
2518+ 
2531 
2575 
2605+ 
2623 
2651 
2819 
3062 
3094 
3120 
3156 
3254 
3289 
3300 
3315 
3366 
3390 
3410 
3484 
3508 
3513¢ 
3548 
3619 
3650 
3663+ 
3665+ 
3724 
3747 
3795 
3935 
4170+ 
4189 
4236 
4261 
8304 
4350 
4374 
Qus2 
&552 


0399 


1183 
1308 
TEAS 
1530 
1585 
1622 
1646 
1686 
1695 
1718 
1736 
1747 
1770 
1805 
1896 
1920 
1938 
1956 
1981 
2028 
2059 
2077 
2131 
2166 
2210 
2240 
2270 
2300 
2372 
2518 
2539 
2579 
2605+¢ 
2624 
2735 
3040 
3064 
3095 
3125 
3233 
3254 
3289 
3301 
3316 
3371 
3391 
3419 
3486 
3509 
35134 
3551 
3637 
3650 
3665+ 
3693 
3728 
3748 
3800 
3939 
4127 
4198 
4238 
4262 
4317 
4351 
4374 
4516 
4553 


0401 


1224 © 


1309 
1483 
1531 
1586 
1622 
1649 
1687 
1706 
4719 
1739 


1750 | 


1773 
1808 
1896 
1922 
1940 
1959 
1982 
2029. 
2060 
2077 
2134 
2174 
2211 
2243 
2283 
2308 
2373 
2518+ 
2540 
2581 
2605 
2628 
2736 
3041 
3070 
3095 
3125 
3235 
3271 
3291 
3303 
3316 
3372 
3392 
3420 
3487 
3510+ 
3513+ 
3558 
3638 
3651 
3665+ 
3694 
3737 
3757 
3805 
3944 
4128 
4271 
4240 
4265 
&320 
4353 
4378 
4518 
4553 


1144 
1232 
13178 
1489 
1534 
1586 
1624 
7652 
1688 
1707 
1720 
1739 
1751 
1773 
1864 
1902 
1924 
1942 
1967 
1984 
2030 
2061+ 
2978 
2134 
2477 
2213 
2244 
2289 
2335 
2373 
2518+ 
2547 
2588 
2610 
2630 
2739 
3043 
3072 
39096 
3126 
3241 
3272 
3291 
3304 
3317 
3381 
3395 
3435 
3489 
3510 
3513+ 
3559 
3638: 
3651 
36654 
3696 
3738 
3758 
3851 
3957 
4130 
4212 
4243 
4266 
4320 
4362 
4A59 


4518 


¥555 


a 


o 


symbo defn type value 

XSIZ 5660 DESCR 0,0,0 

XSP 5719 SPEC 0,0,0,0,0 
XSPPTR 5553  DESCR XSP,0,0 
XYARGS 1784 PROC , 
xc 1802 PUSH (SCL, XPTR) 
XYN 1786 INCRA OCICL,DESCR 
xy1 1789 AEQLC INSW,0,,XY¥2 
XY2 1799 GETDC ‘YPTR,YPTR,DESCR 
xY3 1794 AEQLC SCL,0,RTN2 
XY4 1808 POP (XPTR, SCL) 
YcL 5661 DESCR 0,0,0 

YeTR 5662 DESCR 0,0,0 
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CROSS REFERENCE 


references 
8555 4556 
4608 4609 
8617 4619 
Q717) QT71+ 
4820 4821 
8867 4871 
4913 4917 
8944 4951 
4989 5003 
2078 2079 
2190 2192 
3928+ 3930 
0381 0392 
1987 1120 
1223 1343 
1421 1423 
1693 17174 
1891 1902 
2003 2004 
2230 2236 
2308 2310 
2583 2585 
3044 3085 
3284 3302 
3398 3399 
3538 3552 
4005 4008 
4045 4047 
4138 4139 
4164 4162 
4193 4270 
K740 4871 
S944” HONS+ 
5553 

0399 0908 
2296 2300 
1862 4255 
1788 

1797 

1809 

1789 1790. 
1800 1806 
1803 

0339 03490 
0465 0466 
4210 1210 
2455 2461 
2771 2830 
2958 2966 
3082 3088 
3129 3140 
3309 3310 
3406 3446 
3547 3564 
3579 3580 
3626 3634 
3708 3715 
4307 4308 
4566 4&572 
4750 4752 
K771+ 4833 
5081 5082 
0351 0353 
1453 1456 
1788 17990 
1865 1884 
1912 1918 
1930 1932 
1948 1950 
2101 2102 
2141 2185 
2192 2212 
2346 2349 
2387 2406 
2805 2814 
2823 2833 


4557 
4610 
4631 
4771+ 
8829 
4886 
4917 
8963 
5004 
2085 
2194 
3931 
0397 
1125 
1354 
1431 
1715 
1903 
2005 
2243 


2312, 


2629 
3056 
3333 
3400 
3554 
4018 
4065 
4142 
g171 
4304 


“4874 
4945 ~ 


1144 
2335 
4458 


0348 
1099 
1211 
2467 
2845 
2986 
3089 
3253 
3320 
3454 
3567 
3587 
3635 
3723 
4556 
4718+ 
QT71+ 
4834 
5082. 
1442 
1457 
1792 
1885 
1916 
1934 
1952 
2104 
2154 
2215 
2359 
2420 
2815 
2861 


4557 
4611 
&633 
“771 
4830 
4887 
4921 
4963 
5025 
2086 
2348 
3931+ 
0405 
1138 
1362 
1484+ 
1754 
1904 
2174 
2246 
2316 
2636 
3057 
3349 
3442 
3573 
4019 
4075 
4148 
4181 
4306 
4891 
4962 


1168 


3303 
4467 | 


0349 
1103 
1636 
2479 
2850 
2999 
3099 
3256 
3321 
3456 
3573+ 
3609 
3644 
3725 
4559 
4726 
G77 1+ 
4843 
5083 
1443 
1457 
1792 
1886 
1918 
1936 
1954 
2119 
2164 
2226 
2363 
2447 
2815 
2862 


4569 
4612 
4633 
Q771¢ 
4833 
4889 
4922 
4966 
5026 
2143 
2351 
&322 
0864 
1142 
1405 
1639 
1879 
1970 
2175 
2283 
2334 
2750 
3074 
3350 
3443+ 
3997 
4023 
4083 
8149 
&182 
4313 
4892 


“4989 


1181 
3396 


0455 
1103 
1664 
2483 
2854 
3031 
3099 
3259 
3335 
3457 
35748 
3611 
3685 
3728 
4562 
4731 
771+ 
48u3 


TH48 
1487 
1796 
1899 
1920 
1938 
1956 
2120 
2167 
2268 
2370 
2497 
2817 
2863 


4574 
4613 
4635 
Q771+ 
4839 
4891 
4925 
4978 
5045 
2144 
2357 
4324 
0887 
4143 
1408 
1661 
1880 
1971 
2197 
2286 
2405 
2755 
3075 
3390 
3448 
3998 
4026 
4085 
4152 
4184 
4482 
4898 
4990 


12248 
4271 


0459 
1104 
2026 
2641 
2871 
3054 
3100 
3282 
3360 
3460 
3576 
3612 
3656 
3739 
4562 
4732 
QT7 1+ 
48uy 


1449 
1488 
1799 
1899 
1922 
1940 
1958 
2125 
2179 
2271 
2372 
2504 
2819 
2864 


4597 
4614 
U5BuURe 
g7T71+ 
4840 
4907 
4931 
4979 
5047 
2153 
2357 
4329 
0889 
1162 
1410 
1691+ 
1881 
1987 
2198 
2295 
2409 


2800 


3276 
3391 
3449 
4001 
4029 
4093 
4153 
4185 
8484 
4925 
4994 


1755 
Q7TRO+ 


0460 
17110 
2932 
2716 
2873 
3065 
3109 
3293 
3361 
3463 
3576 
3616 
3690 
3743 
4563 
4733 
4T71+ 
4850 


144g 
1490 
1799 
13907 
1924 
1942 
2099 
2125 
2182 
2309 
2384 
2798 
2820 
2921 


4598 
8615 
HENS 
O77 14 
48R8 
4908 
494 
4983 
5068 
2184 
2360 
8329 
0976 
1165 
is 
1691- 
1889 
1988 
2225 
2299 
2533 
2989 
3277 
3392 
3467 
4002 
4030 
4133 
4158 
4183 
4738 
49264 
5004 


2244 


0463 
4297 
2055 
2748 
2923 
3069 
3119 
3296 
3364 
3464 
3577 
3618 
3699 
4066 
8563 
u74T 
771+ 
4850 


1452 
1491 
1803 
1908 
1926 
1944 
2100 
2127 
2782 
2342 
2386 
2799 
2821 
2929 


4599 
4616 
“76 
$786 
4858 
R912 
8941 
4984 
5068 
2186 
2361 
4331 
1014 
1189 
ar 4g 
1692 
aan 
1989 
2227 
2305 
2536 
2995 
3283 
3395 
3537 
goog 
4035 
HT38 
4162 
4790 
4739 
4926 


- 5045 


2247 


04648 
1208 
204614 
2757 
2939 
3073 
3922 
3308 
3367 
3471 
3578 
3624 
3701 
4078 
4565 
&750 
G771+ 
4851 


4453 


1787 
1803 
1909 
1928 
1946 
27101 
2141 
2185 
2346 
2386 
2898 
2822 
2964 


symbol 


YSPPTR 


ZCL 


ZEROCL 


ZPTR 


defn type 


5663 


5720 . 


5554 
5664 


5445 


5665 


. DESCR 


SPEC 


DESCR 


DESCR 


DESCR 


DESCR 


value 


0,0,0 


0,0,0,0,0 


YSP,0,0 
0,0,0 
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CR 


2090 


QSS_ REFERENCE 
references 

2972 2973 2976 
3052 3053 3097 
315% 3229 3230 
3318 3319 3322 
3488 3489 3496 
3657 3657+ 3663+ 
3719 3720 . 3723 
3762 3763 3767 
3798 3810 3814 
3922 3924 3924 
3968 3970 3971 
3977 3977 3978 
4082 4083 4091 
8160 4167 4161 
4221 4223 4223 
4277) 4278 4279 
4293 4294 4297 
4338 4459 4468 
4588 4589 4629 
4729+ 47IG9 4751 
4771+ 4788 4826 
4870 4888 4890 
8917+ 49174 4921 
4980 4981 4983 
27194 2146 2153 
2363 2406 2408 
2497 2498 2499 
1884 1885 1886 
2227 2228 2309 
2538 2551 2552 
3045 3057 30661 
3443+ 3846 3471 
4289 4305 4307 
4833 4836 4841 
4870 4876 4932 
4985 4987 4995 
2342 3048 3062 
4290 

2026 2032 2056 
3093 3094 3136 
3164 3170 3171 
3200 3203 3206 
3228 3229 3237 
3364 3367 3369 
3456 3460 3460 
3478 3479 3480 
3581 3624 3625 
3747 4558 4559 
0432 0607 9613 
2032. 2056 2077 

2104 2104 

2153 2154 2154 
2192 2200 2339 
2693 2705 3006+ 
3338 3440 3547 
3859 3978 3979 
4565 4545 4550 
03462 0343 0344 
17152 #4156 1157 
1462 W473 1619 
1652 1675 1694 
1735 1736 1767 
1792 1912 1914 
1940 1942 1956 
2000 2001 2003 
2189 219% 2260 
2327 2328 2329 
2368 2371 2373 
2397 2741 2743 
3116 3118 3118 
3159 3231 3232 
3414 3420 3423 
3513+ 3513¢ 3513¢ 
3580 3581 3585 
3665+ 3665+ 3665+ 
3698 3698 3700 


2978 
3098 
3231 


. 3323 


3497 
3665+ 
3725 
3778 
3914 
3926 
3972 
3979 
4092 
4162 
4224 
4280 
4305 
4478 
4631 
4752 
4827 
4892+ 
4922 
4985 
2154 
2415 
4323 
1907 
2312 
2565 
3068 
3538 
4314 
4842 
4933 
5554 
3070 


2063 
3140 
3174 
3209 
3281 
3418 
3461 
3480 
3628 
8566 
0653 
2084 
2134 
2177 
2346 
3006+¢ 
3623 
4320 
4718+ 
O344 
1159 
1621 
1709 
1769 
1916 
1958 
2004 
2262 
2332 
2375 
2743 
3120 
3232 
3425 
3513+¢ 
3586 
3665+ 
3718 


2984 
3110 
3234 
3362 
3625 
3665¢ 
3728 
3782 
3915 
3937 
3972 
3982 
47144 
4168 
§229 
4281 
4323 
44st 
4718+ 
4756 
4827 
4899 
4932 
4988 
2185 
2418 
4324 
1908 
2313 
2566 
3075 
3554 
4483 
“845 
4933+¢ 


3979 © 


2451 


3141 
3177 
3212 
3314 
3419 
3461 
3481 
3642 
4569 
0658 
2084 
2137 
2182 
2357 
3054 
3630 
4329 
4736+ 
0385 
1159 
1621 
1711 
1769 
1918 
1959 
2005 
2262 
2333 
2376 
2744 
3187 
3241 
3426 
3563 
3588 
3665+ 
3720 


3006+ 
3119 
3235 
3364 
3626 
3665+ 
3743 
3792 
3919 
3946 
3974 
3983 
4145 
4215 
&239 
4284 
4328 
4483 
8718+ 
8759 
4828 
4900 
4938 
50489 
2186 
2418 
4331 
1909 
2341 
2579 
3078 
3557 
HUB4 
4848 
4952 


3086 


2469 
3142 
3180 
3218 
3315 
3421 
3462 
3482 
3643 
4573 
0739 
2084 
2137 
2190 
2363 
3282 
3661 
4331 
5125 
0352 
THUG 
1622 
W711 
1770 
1920 
1984 
2032 
2263 
2350 
2381 
2978 
3148 
3369 
3482 
3565 
3598 
3665+ 
3761 


3006¢4 
3122 
3253 
3367 
3626 
3691 
3744 
3793 
3920 
3949 
3974 
3986 
4146 
4216 
4239 
4285 
4331 
4586 
8718+ 
4765 
4829 
4909 
4952 


2192 
2419 


2179 
2529 
2580 
3085 
4078 
4733 
484u9 
4953+ 


3280 


2970 
3143 
3183 
3221 
3347 
3421 
3463 
3484 
3744 
4718+ 
0813 
2086 
2741 
2190 
2363 
3326 
3854 
4331 


0353 
T4447 
1649 


1712 | 


1790 
1934 
1990 
2082 
2320 
2356 
2382 
2980 
3150 
3370 
3483 
3565 
3623 
3665+ 
3765 


3042 
3146 
3256 
3422 
3627 
3699 
3759 
3795 
3921 
3950 
3976 
4081 
4147 
4218 
4247 
4288 
4335 
4587 
47294 
Q77T1+ 
4832 
4910 
4959 


2349 
2419 


2180 
2530 
2585 
3277 
4080 
4735 
4853 
4953 


3541 


2971 
3162 
3195 
3222 
3348 
3423 
3465 
3543 
3786 
4729+ 
0850 
2088 
2741 
2190 
2536+ 
3329 
3855 
4338 


0865 
1460 
1651 
1733 
1791 
1936 
1998 
2104 
2325 
2361 
2387 
2980 
3156 
3371 
3485 
3566 
3641 
3665¢ 
3769 


3051 


3149 
3259 
3423 
3651 
3701 
3760 
3796 
3922 
3953 
3976 
4082 
4152 
4221 
4257 
4290 
4338 
4587 
47294 
a7714 
8869 
4912 
4970 


2352 
2420 


2226 
2537 
2586 
3322 
4092 
4832 


4858 - 


4969 
3558 


3050° 
3162 
3199 
3224 
3361 


3459 | 


3475 
3575 
3746 
8743 


©2015 


2088 
2151 
2192 
2688 
3332 
3858 
4540 


0873 
1461 
1651 
1735 
1791 
1938 
1999 
2149 
2326 
2365 
2394 
2981 
3157 
3373 
3497 
3579 
3647 
3696 
3771 


symbol Gcefyn type value 
i) 
ee 
Sts nf 

ZS12 5666 DESCR 0,0,0 

zsP 5721 SPEC 0,0,0,0,0 


ZSPPTR 5555 DESCR ZSP,0,0 
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references 
3776 3779 
3854 3855 
HO1TG GOT’ 
4OuH 4045 
4228 4228 
4397 4399 
4522 4523 
4630 4634 
4699 4700 
6713 4714 
§764 8765 
49714 4915 
5015 5016 
2085 2086 
2350 2351 
0482 0483 
2368 2371 
2588 2610 
4293 4698 
49264 4926+ 
4933+ 8945+ 
4953+ 4953+ 
5027 5555 
3288 3297 


CROSS REFERENCE 


3794 
3856 
4015 
4129 
4229 
4398 
4574 
46444 
4703 
4716 
“767 
4916 
5016 
2088 
2360 
04889 
2379 
2611 
4699 
U926+ 
HO4S+ 
4953+ 


4275 


3797 
3858 
4016 
4171 
4310 
H422 
8599 
4650 
4703 
47184 
8769 
4982 
5017 
2089 
2361 
0498 
2394 
3284 
4700 
926+ 
U9G45+4 
8953+ 


4294 


3800 
3859 
4017 
4218 
4311 
S424 
4600 
4669 
8706 
Q731+ 
QT7 1+ 
4986 
5052 
2089 


0502 
2397 
3426 
R712 
8926+ 
49454 
4986 


5065 


3802 
3918 
4026 
4220 
4327 
&4uU24 
8618 
4683 
4706 
&745 
R77 1+ 
991 
5062 
2090 


0503+ 
2538 
34849 
4713 
4933+ 
aguse 
u987 


3808 
3927 
4029 
4220 
&371 
BH25 
8619 
8692+ 
709 
G746 


4395 


8992 
5005 
2146 


0507 
2539 
3450 
g774 
4933+ 
8965+ 
4995 


3811 
3928 
4043 
4221 


4397 


GuaT 
4627 
§o98 
4709 
4748 
4896 
5005 


2147 


2060 
2586 
3475 
4717 
4933+ 
4953+ 
5026 


3852 
4012 
BOuy 
4226 
8396 
&4yu9 
8628 
4698 
4712 
4749 
u91t 
5006 


2188 


2061 
2587 
a274 
ut97 
4933+ 
953+ 
5027 


